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Ja visst. PET bokföringsprogram är Sveriges mest köpta 
och används idag i mer än 3000 företag. 

PET bokföringsprogram tillhör dessutom de fåtal som uppfyller bokföringslagens krav, 
och rekommenderas därför av revisorer och myndigheter. 

Stor kapacitet 

PET bokföringsprogram används på Commodore PET mikrodator och har kapacitet att 
klara 500 konton, 500 kostnadsställen och 13.000 bokningar samtidigt. Programmet har 
dessutom en mycket effektiv automatkontering och saldoavstämning. 

Kostnadsställebokföring 

Programmet kan lägga upp budget på huvud- och kostnadsställebok, och har en mycket 
avancerad rapportgenerator, som ger dig balans- och resultaträkningar automatiskt 
utskrivna. Du kan också själv plocka fram egna rapporter. 

Budgetjämförelser 

Det klarar också att göra budgetjämförelser, och att jämföra prognos med verkligt utfall. 
Programmet levereras med BAS-81, men du kan givetvis 
själv bestämma kontoplanens utseende. Du kan lägga 
in texter till verifikationer i dag- och huvudbok, och 
programmet klarar saldon upp till 99 miljarder. 

marknadsleda? 

ekonomiriitiiw. 



Commodore PET har ett heltäckande utbud av 
administrativa rutiner, och är en av marknadens mest 
prisvärda maskiner med mycket stor kapacitet. 

Vill du veta mer om PET bokföringsprogram och PET 
mikrodator, kontakta närmsta återförsäljare 
eller skicka in kupongen. 



PET-återförsäljare 


ARBOGA RPU 0589-175 70 AVESTA Maskmlrma X el Ef *on 0226-51141' BORLÄNGE Blids Dalashop 0243-14622 
BORAS Data & Elektromc AB 033-115360 ESKILSTUNA RPU 016-149591 FALKÖPING Norders Bokhandel 0515 
17020 FALUN Blids AB 023-28053 GAVLE Dm Dator 026-181818 GOTEBORG Janken Mm.dala 031-813180 
GrundeUs 031-209340 Reko Hyrdala AB 03M78620 Rent a Computer AB 031-813820 HALMSTAD Datahalland 
035-109590 HELSINGBORG Electro-Bygq Dataspecialisten 042-133323 HESTRA Kida Kontors & Industri Data 0370- 
35710 HUDDINGE Kida Kontors 8 Industr Data 

08-970340 HUDIKSVALL Haismgedata 0650-14060 HUSKVARNA Kida Kontors & Industri Data 036-14 1320 
HÄSSLEHOLM l anner Data AB 0451-84567 JÖNKÖPING Konlorama 036-128482 KALMAR Sydkontor AB 0480- 
15460 KALMAR Kalmar Mmidata 0480-29777 KARLSHAMN Expodslaben 0454-18035 KARLSTAD Esselte System 
AB 054-102020 KRISTIANSTAD Sydkontor AB 044-126070 KUNGSBACKA Hada Dala 0300-179 71 LINKÖPING 
Kontorskonsult AB 013-130175 LINKÖPING Nordströms Kontorsmaskiner 013-11 51 75 LOMMA Gota Dala 040-414710 
LULEA MDC Mikrodatacenler 0920-24894 MALMO l mdahi 8 Rotholl 040-101730 Skandinaviska Datatillbehör 040 
163280 Rent a Computer AB 040-103285 MORA Per-Enk Finn AB 0250-15591 NORRKÖPING Datax HB 01 1 
1621 79 NORRTÄLJE EMAB Eflektiv Marknadsplan 0176-19240 SKARA Innova Konsult 0511 10540 SKELLEFTEÅ 
Habo Data 0910-881 60 SKÖVDE Skonborgs Kontorsmaskiner 0500-10990 SOLNA Infolerm 08-7305580 Esselte 
Kontona. 08-262500 STOCKHOLM M&M Computer AB 08-514400 Rent a Computer AB 08-7140290 VIC Center 
AB 08-692024. Kida Kontors Ä Industri Data 08 151420 Mim Micro Datorer AB 08-160915 Svato AB 08-142755 T- 
D-X Smådatorer 08-521060 SUNDSVALL Dm Dator 060-121590 SÖDERTÄLJE Taljedata Konsult AB 0755-87185 
TRANAS Expodstaben 0140-13210 TROLLHÄTTAN Janken Mmidata 0520-32900 UDDEVALLA ADB-Vast 0522 
17717 UMEA Nordkontor 090-14 1120 UPPSALA EMAB Eftekl.v Marknadsplan 018-122755 VETLANDA Databutiken . 
Vetlanda 0383-17500 VISBY Gule Dala 0498-11320 VASTERAS RPU 021-133050 VÄXJÖ Bra Konlor 0470-20030 
OREBRO Dawidssons Mask.naffar AB 019-1364 50 ÖRNSKÖLDSVIK Boklonngsljansl 0660-83500 ÖSTERSUND 
Data Meiander AB 063-12454 


Ja. Skicka mer information 
om PET 


Foretag _ 


kontaktperson_ 

Postadress_ 

postnr/ört_ 

telefon_ 


Skickas till Datatronic AB 
Box 42054, 

126 12 Stockholm 
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Varje Teknotek-lada innehaller minst en 16-sidig tema-tid¬ 
ning i färg som belyser det nya ämnet pa ett pedagogiskt 
sätt, vidare ett nytt nummer av Klubbnytt och slutligen en 
eller flera prylar som hjälper till att förklara ämnet. 


Teknoteket kommer med 6 lador per ar. Dessutom 4 extra 
Klubbnytt, sa att medlemmarna far något varje manad 
utom under sommarlovet. Totalt blir det 225 sidor teknik 
och naturvetenskap plus minst 20-talet prylar. 


Teknoteket bestar nu av omkring 6 000 medlemmar. Men vi 
kan ta in manga fler. 


Det första ladan 1983 kommer atl 
behandla DNA — ”livets byggste 
nar" Ett aktuellt ämne pa gränser 
mellan kemi och biologi. 


B arn har miljoner anlag inom sig. Hur an¬ 
lagen utvecklas beror, som vi alla vet, på 
samspelet med miljön. 

Här har skolan naturligtvis en viktig roll, men 
minst lika viktig är stimulansen i hemmet. Från 
föräldrarna. 

Vägen till personlig utveckling och kunskap 
går ju via inspiration. Det är här vi på Teknoteket 
kommer in i bilden. 


Så snart vi fått in din ifyllda TÄpong skickar 
vi över en kostnadsfri julklappslåda (någon av de 
12 tidigare producerade lådorna) plus anmälan 
och lite mer information. 

Man prenumererar på årsbasis. Vi måste göra 
så eftersom många saker i lådorna har lång leve¬ 
ranstid. 

För det subventionerade priset 250:- får varje 
medlem 6 lådor baserade på 6 olika ämnesom¬ 
råden plus 4 separata klubbnytt. 


Vi har i snart två år producerat teknisk och 
naturvetenskaplig stimulans i form av spännande 
kunskapslådor. 

Det är absolut ingen kurs, skolan är tillräckligt 
jobbig. Vi brukar säga att Teknoteket är en kom¬ 
bination av en klubb, tidning och experimentpry¬ 
lar för ungdomar mellan 10 och 15 år. 

Bakom idén med Teknoteket står Ingenjörs- 
förlaget, som ägs av Sveriges Civilingenjörsför¬ 
bund och Svenska Ingenjörssamfundet. 

Denna vår satsning på ungdomen har en all¬ 
varlig grund. Det är tyvärr så att antalet sökande 
till de tekniska skolorna minskade under 70-talet. 



jag vill att min son/dotter ska bli 
medlem i Teknoteket. Skicka mig 
därför snarast en presentISda med 




FRANKT HAS 
f J 

ADRFSSAH N 
GE TA| AR 
PORTOT 


anmälan och inbetalningskort pä 


250:-. 


OBS! Skicka in kupongen snarast möjligt. Vårt 
lager av presentlädor är begränsat. 


Ingenjörsförlaget AB 
Teknoteket 


Namn 

Adress 


Svarspost 

Kuralnr 11 307 113 
102 50 ST( XIKHOl.M 


Postadress 


L 
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VIC-KLUBBEN - en klubb för alla 
som är dator intresserade! 


Var med från början i det som kommer att bli 
Skandinaviens största klubb för dator- 
intresserade människor i alla åldrar. 
Datorteknologin har utvecklats så lång att VIC 
kan bli var kvinnas eller mans egendom. Det 
har bildats klubbar här och var i landet och 
mer kan det bli. För Dig eller Er som startat 
igång, låt oss andra få veta hur Ni gjort. 

Till Dig eller Er som tänker starta, skriv 
till oss och berätta, vi kan hjälpa Er med 
tips hur en lokal klubb kommer till. 

Som medlem i en VIC-klubb har du många 
förmåner. 

Eftersom varje lokal VIC-klubb tillhör 
moderklubben för Sverige, har du möjligheter 
att knyta kontakter både på Din egen ort och i 
l andet i öv rigt 



Du kan byta program 
programbytarservice 


med andra VIC-k lubbmedlemmar. Klubben har en 
som du kan läsa mer om i tidningen. 


Du får VIC-NEWS hem i brevlådan. VIC-NEWS tar upp nyheter kring VIC, 
både nationellt och internationellt, ger programmtips, nya 
användningsområden, programmeringst ips, ger Dig möjlighet att komma i 
kontakt med andra da t orintresserade, mm. 


Om du privat vill sälja eller köpa någonting, sätter 
kostnadsfria radannonser i VIC-NEWS. 


Du in 


Har Du några andra önskemål 
oss! 


som vi kan tillgodose för Dig, skriv till 


Så här gör du som vill vara med i VIC-klubben! 

Sänd in medlemsavgiften 100 kr på POSTGIROKONTO 8 46 46-9 och ange att 
det gäller medlemskap i VIC-klubben. Så fort som dina pengar kommit in 
och vi registrerat Dig, är du medlem. Vi skickar dig tidigare 
distibuerat material (så länge det fortfarande finns kvar av det) 
tillsammans med medlemskort. Därefter är du med i ordinarie utskick. 

Kontakt med redaktionen. 

Vill Du skicka in redaktionellt material till VIC-NEWS, radannonser 
eller vanliga annonser är adressen till VIC-klubben: 

VIC-klubben 
Box 1509 
436 00 ASKIM 

Telefon till VIC-klubben har beställts. Nummret kommer att medelas i 
nästa VIC-NEWS. 
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Välkorr, 



specialbutiken för 



Kundbordet 

Ger Dig köptrygghet. Du kan hyra och testa olika 
program vid kundbordet innan Du bestämmer Dig 
— Du får pengarna tillbaka när Du handlar. Du kan 
lära Dig att programmera genom att hyra tid och 
handbok vid kundbordet — Du får pengarna tillbaka 
när Du handlar. Du kan utbyta erfarenheter och pro¬ 
gram med andra vid kundbordet. VIC = CENTERs 
kundbord är mötesplatsen för både nybörjare och 
avancerade i alla åldrar. 

Programservice 

10 REM ”KÖRT FAST”, 20 GOTO VIC=CENTER 

Ibland kan man köra fast när man gör program. Det 
kan även de skickligaste göra. Men Du behöver inte 
känna Dig ensam. Kom till VIC=CENTER och lös 
Ditt 80-kort till VIC = CENTER PROGRAMSERVICE. 
Skickliga programmerare hjälper Dig sedan att 
komma vidare i Ditt program. 


Utbildning 

Efter nyår kan Du utbilda Dig i programmering vid 
VIC = CENTERs kundbord. Nybörjare samlas varje 
tisdagskväll, de litet mer kunniga varje onsdags¬ 
kväll och de avancerade får sin vidareutbildning på 
torsdagskvällarna. Toppkvalificerade lärare instrue¬ 
rar Dig. Hör av Dig om priser och övrig information. 

Fullt sortiment av 
VIC=tillbehör 

VIC=CENTER är specialbutik för hela VIC = sorti- 
mentet. Du kan köpa allt som finns av VIC=tillbehör. 

Fakta om VIC=20: 5 K RAM expanderbart till 32K • 20K ROM • 
BASIC, Assembler och FORTH • Färger — 24 st • Ljud — 4 st 
generatorer • Bilden blir 22 tecken bred och 23 linjer hög • Skriv- 
maskinstangentbord • 4 programmerbara lunktionstangenter 
med 8 möjliga funktioner • Stort tilibehörssortiment • RF gene¬ 
rator medföljer sä att VIC=20 kan anslutas direkt till antenn i en 
vanlig TV. 
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I 





























































































men till 


cent ci 

VIC=sortimentet 



VIC=center utmanar Dig! 

Var med och tävla om vem som gör det bästa PRO¬ 
GRAMMET FÖR HELA FAMILJEN. Programmet skall 
vara ett nyttoprogram (alltså inte ett spelprogram) 
och kunna vara till nytta för alla i en familj bestående 
av fader, moder, syster och broder. Programmet skall 
fungera på en vanlig VIC = 20 5 K. 

Tävlingsbidrag skall inlämnas på kassettband och 
vara VIC = CENTER tillhanda senast den 15 februari 
1983. Ange namn, adress, telefon och ålder samt 
programmets namn på kassettens etikett (allt tyd¬ 
ligt textat). 

Juryn är Göran Troell, Maud Björkenfeldt, Lasse 


3:e—5:e VALFRITT SPELPROGRAM 
värde 325 kr cirkapris 

6:e—10:e VALFRI HANDBOK 
värde 95 kr cirkapris 

11:e KLAPP PÅ VALFRI AXEL 
värde (ovärderlig) 

VIC=CENTER FÖRBEHÅLLER SIG ENSAMRÄTTEN 

TILL PRISBELÖNTA TÄVLINGSBIDRAG. 


I^naxKonjjp: 


appell. 

PRISER: 

l£ 

KÖPKORT 

1:a 

VALFRIA VIC=TILLBEHÖR 



värde 2.500 kr cirkapris 

V/SA 

2:a 

VALFRIA VIC=TILLBEHÖR 
värde 1.000 kr cirkapris 


MasterCard 

' V J 



centei 


Högalidsgatan 13A 
11730 Stockholm 
(nära Hornstull) 

Tel 08-692024 




















BOKRECENTION 

DATORER - MODELLER - VERKLIGHET 

"När Gallilei med sin stjärn- kikare såg på Jupiters månar så drog han 
slutsatsen som skulle ingå i en ny världsuppfattning. Himmelen var ingen 
kristallkula. Jorden var ej universums centrum. Människan fick en ny syn på 
sig själv. Vi talar om en kopernikansk omvälvning." 

Så inleder Lars Kristiansson sin bok DATORER-MODELLER-VERKLIGHET. Boken 
är utgiven av För l agsgruppen i Norrköping och säljs av Handic's återför¬ 
säljare för c:a 78 kr. 

I datorer lagras modeller av verkligheten. Datormodeller dör aldrig. 
Makthavare kommer i framtiden att få råd av experter och expertdatorer. Hur 
klarar demokratin det, när vi inte får någon direkt avstämning från verklig¬ 
heten. Lars ger ett utomordentligt pedagogiskt exempel: väderprognoserna och 
det väder som vi sen får! Där kan många bedöma träffsäkerheten. Ett annat 
exempel ur den ekonomisk-politiska verkligheten kan vara de statliga lång¬ 
tidsutredningarna jämförda med den ekonomiska verkligheten på fem års sikt. 

Varför är jämförelsen mode l l-verkli ghet så viktig? Svaren är många. Det 
enklaste svaret är att modell och verklighet inte är detsamma. De är olika, 
eftersom modellen är ett försök att efterlikna verkligheten. Viljan, för¬ 
mågan och KUNSKAPERNA för att klara ens ett försök skiftar oändligt. Vi ser 
verkligheten olika. Vi sorterar ut det vi tycker är väsentligt. Andra tycker 
att något annat är mer väsentligt och därför bör vara med i modellen. Vi har 
helt enkelt olika värderingar. Så fort vi överför kvalitet till kvantitet 
värderar vi verkligheten. Någon kanske vill styra verkligheten genom sin 
modell. Modeller bygger på information som i sin tur ger makt, inflytande 
och påverkansmöjli gheter. Med datorn som hjälpmedel blir allt detta än 
väsentligare. Datorn "förstärker" på olika sätt, ibland oerhört mycket, på 
gott och ont. 

Datorer, modeller och verklighet är en fråga om demokrati och demokrat¬ 
ernas sätt att fungera. Därför är detta i högsta grad en politisk fråga - en 
av de största för framtiden. Lars säger. Låt oss titta genom datorn inte 
bara på den. 

Lars Kristiansson är professor i informationsteori vid Chalmers Tekniska 
Högskola i Göteborg. Men han är så mycket mer. Han är folkbildare i mass¬ 
media och informationssamhället. Därför är boken pedagogisk läsvärd och 
uttrycklig i sina många exempel. _ • 

Det är mycket sällsynt att träffa på forskare med hög kompetens inom sitt 
specialområde som förmår att samtidigt behålla bredden. Att kombinera ett 
historiskt/filosofiskt perspektiv med ett naturvetenskapligt. Med förmåga 
att se samhället som en helhet och med fantasi ge en föreställning om konse¬ 
kvenserna av olika slags te kni k påverkan i detta samhälle. Att kunna åskåd¬ 
liggöra tekniken som sådan, dess möjliga användning och samhällskonsekvens¬ 
erna med utgångspunkt både i hårdvaran (maskinerna, tekniken) och mjukvaran 
(programmen, modellerna). Lars kan detta mer än någon annan jag träffat. Vi 
som haft förmånen att jobba tillsammans med Lars vet att han lägger ner hela 
sin själ i uppgiften att förklara det framväxande informationssamhället. 

Allt detta är inte möjligt att fånga i en bok. Det kan inte ens Lars, men 
han hjälper oss att tänka efter, att tänka efter innan det är för sent. 

Att detta är en viktig uppgift när tekniken blir allt kraftfullare i sina 
samhällskonsekvenser, det vet vi nu genom erfarenhet från energidebatten. 

Det var just detta som saknades under 50- och 60-talen, när ett fåtal exper¬ 
ter och ett fåtal informerade politiker försökte definitivt föra in oss i 
kärnkraftssamhäl let. Det tog lång tid för oss medborgare att uppfatta vad 
som pågick. Det var utomordentligt svårt att få till stånd de beslut som kan 
frigöra oss från det energisystemet. Det tar lång tid att förverkliga av¬ 
vecklingen. Därför är det så viktigt att människor med stort kunnande, sam¬ 
hällsengagemang och människokärlek ställer upp som folkbildare i första 
ledet. 

Tack Lars för ännu ett fint bidrag för att göra allmänheten mer 
informerad om det framväxande informationssamhället! 

Olof Johansson 


i 
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MÄNNISKANS FÖRMÅGA ATT ABSORBERA KUNSKAP ÄR ENORM! 


BASIC PS VIC 


Boken är skriven 
speciellt för 
VI C-folkdat orn . Det 
innebä r att alla 
praktiska övningar som finns beskrivna i 
boken är anpassade för VIC-20. 

Boken beskriver allmänna grunder i Basic- 
programmering. Den är således en bra 
nybörjarbok. Den är lättläst, 
själv instruerande och praktiskt inriktad. 

Boken tar upp följande B asi c-programmering 


- Uppkoppi ing 
VIC-20. 

- Basi c ' s 


och funktionsbeskrivning för 


grundprinciper. 

Basic's viktigaste kommandon. 

In strukt ionsrepert oar såsom bl.a in¬ 
matning, utskrift av text, datainläsning, 
programstyrning. LOOPar och 0N-G0T0 mm. 

Matematiska st andardfun kt ioner 
Olika numeriska tal. VIC-20 som avancerad kalkylator. 
Indexerade variabler - Stränghantering - Flödesplaner 



Boken avslutas med ett antal programmeringsövningar. 

Boken är lämplig för enskilda studier eller studier i grupp. Studierna 
kan ske med eller utan tillgång till dator. 

GRAFIK OCH LJUD PS VIC. 


Denna boken ingår i bl.a Basicprogrammering 1, en av kurserna som 
anordnas av de olika bildningsförbunden. Boken beskriver de olika 
specialiteter som förekommer på VIC-20. Ex vis färg, ljud och grafik 
med hjälp av POKE kommandot. Hårdvara för grafik och olika histogram, 
stapeldiagram. Skärmfun kt ioner med CHR$(, spel och timer. I boken finns 
också ett antal bilagor. 

Trots att detta är en fortsättning på "Basic på VIC" så är det en 
nybörjarbok. Boken är skriven för att passa såväl självstudier som 
grupparbeten. Du lär Dig de olika finesserna med hjälp av teoretiska 
beskrivningar kombinerat med beskrivande programexempel! 


BYGG UT DIN VIC. 


Bygg ut din VIC beskriver områden där Basic används i kombination med 
olika in- och utenheter. Kortfattat innehåller boken beskrivning av 
följande periferienheter: Skrivare VIC—1515 med dess kontrollkoder, 
grafiktecken och specialkommandon. 

VIC-1530 Bandstation med programhantering och datalagring. VIC-1540 
floppy disk med inkoppling, formatering av skivor, filhantering, 
sekvens i el la data filer mm. VIC-20's expansionsenhet och anslutningarna 
av yttre extra minnen, ändrade minnespossisioner, 8K, 16K, 

Superexpander etc. Paddle och Joystick. I boken finns också olika 
kontrollprogram för de olika enheterna. 


DET ÄR DU SOM BESTÄMMER VAD DATORN SKALL GÖRA! 
DET ÄR DINA KUNSKAPER SOM GER DATORN DESS KRAFT! 


7 




















































DE FLESTA PROGRAMMERARE H8LLER MED OM ATT STANDARD ÄR ETT BRA BEGREPP, 
DET STÖRSTA PROBLEMET ÄR ATT TV8 PROGRAMMERARE NÄSTAN ALDRIG KAN KOMMA 
ÖVERENS OM VAD STANDARD ÄR! MALDWYN G. MORRIS FÖRESL8 R FÖLJANDE STANDARD, 


Nu när VIC varit ute på marknaden 
i c:a ett år kanske man kan tycka 
att det är för sent att börja tala 
om att standardisera. Det kan aldrig 
vara försent att göra det lättare 


CT Adress övre vänster 

Char, hörn skärmtecken 
Top 7680 ändras vid minnes- 
expansion 


7680 


för användaren att förstå. Vad vin- 

TC 

Adress över vänster hörn 

ner man då 

på ett sådant här system? 

Top 

för skärmfärgerna 38400 

Om alla VIC 

användare programerar 

Färg 


efter standard kommer andra lättare 



att förstå 

de olika prog. som med- 

OF 

Skillnaden mellan (norm.) 

lemmar skickar för presentation i 

offset 

TC och CT 30720 

VIC-NEWS. 





VIC VARIABLER. 

DN 

Antal markör flyttn. 0-23 



Ner 

som önskas 




Ner sträng inehållande 

Variabel 

Användning Värde 

D N $ 

23 programmerbara markörer 

Namn 

AAAAA,XX 

Ner 

'ner 1 karaktärer används av 




LEFT$(DNS,DN);li ka för 

I, J,K,L,M,N 

FOR-NEXT loops - 


RT,RT$(right) 

vidare bi Id 

- 


UP,UP$(up) 

ninga r såsom 


LT,LT$( left) 

1,19,JM 




J N , 1 0 etc. 


C X , C Y 

Markör förflyttn. 0-21(CX) 



Markör 

X,Y från top-vänst.0-22(CY) 

RO 

Skall innehålla 36864 

X 8 Y 


(registerO) 

VIC KONTROLL REGISTER 0 





Fl 

Värde i RA som kont. 0-255 

R1 

Skall innehålla 36865 

Ba s 

frekv. stämma 1 

(registerl ) 

VIC KONTROLL REGISTER 1 

F 2 

Lika för RB, stämma2 0-255 


m 

Tenor 



m 

F3 

Lika för RC, stämma3 0-255 


m 

Sopran 



o.s.v upp till:- 

FN 

Lika för RD, stämma4 0-255 


• 

Brus 

m 


. 

V L 

Volym för ljud i RE 0-15 

RF 

Skall innehålla 36879 

Volym 


register F 

VIC kontroll register F 





L H, LV 

Ljuspenna horisontell- 

SB 

För vä rdet i RF som 


vertikal i R6,R7 

Skärm 

kontr. skärmbakgrund 

PX , PY 

Potensiometer X/Y i R8,R9 

ba kg rund 

& skärm färgerna (se 

PotX,PotY 


tabellen i användar- 




manualen.) 

FM 

RAM minnet i CPU 3.5-30.5K 


OBS. Detta kan också 

Fritt 

utan program 


uppnås genom att lägga 

Minne 



ihop skärmfärg (poke) 

UM 

RAM minne som 0-30.5K 


värde *16 till ramfärg 


används för PRG 


(poke) värde, och sedan 

FNR(x) 

INT(RND(1)*X)+1 ger ett 


lägga till 7. 


slumpmässigt tal mellan 




1 och X 

PF 

Poke värde för (0-7) 

GT$ 

Värdet används i GET vänta 

Po ke färg 

färg=tangent nr -1 

GET 

loops som t . ex: 



sträng 

1000 GET GT$:IF GT$<> 

C L $ 

Innehåller färgkontr. 


""TH ENI 000 

färg 

för alla färger. 


väntar på att mellanslag- 

sträng 

Exempe l : 


trycks ned 


MID$(CL$,PC+1,1) 

DE 

Värdet används i VÄNTA 

CP 

POKE värde, tecken 0-255 

De L ay 

loopa r som t . ex : 

Tecken POKE 



2000 FOR DE = 1 T0 10000: 

KM 

Adress på nedtryck 197 


NEXT DE. 

Key 

tangents värde. 
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VI HAR DET DIN VIC-20 BEHÖVER! 

Här följer några smakprov från vår senaste prislista: 
******* För Dig som gillar spel! ******* 


ACTIONSPEL: AMOK 

Försvara Dig mot robotarna som blivit helgalna och 
löper AMOK (maskinkod) 

ASTEROIDS 

COSMIADS 

VIC PANIC 

Et t sk i c k l i ghetsspe l i maskinkod. 

Spel hallsspelet GALAXIANS för VIC-20 (maskinkod) 

En ny version i maskinkod av Space Panic 


KOSMIC KAM En verklig pangversion av Space Invaders (fordrar 


TRI CITY 

3k expansion) 

Helt ny spelide' - fantasieggande och grafiskt 
listigt, (fordrar 3k expansion) 

KRAZY KONG 

Rädda de vackra flickorna från den argsinta King 
k ong. 

SKRAMBLE! 

Spelet du aldrig tröttnar på! Spelet det svänger 
om ! 

OCH M8NGA, M8NGA FLER! 

ANDRA SPEL VIC GAMMON 

Spela Backgammon på din VIC. (fordrar 3k 
expansion) 

BOSS 

Ett superbt schackprogram för 8k expansion till 
överkomligt pris (170 kr) 

BLOWUP 

Labyrintspel med k na l l effekter 

PLUS EN MASSA ANDRA! 

ADVENTURES RESCUE 

Femvåningshus, 100 rum, 30 människor - rädda 
människorna! 

TRADER- 

TRILOGY 

Fordrar 16K expansion (egentligen 48K, men det 
laddas i 3 omgångar). Ett slags rymdmonopol - fast 
roligare 

SUBSPACE 

Rymd jagaren Swordfish på uppdrag i rymden. Fordrar 
16K expansion. Nu med höggrafik! 

OCH FLERA ANDRA 


****** FÖR DIG SOM PROGRAMMERAR ******* 


HÖGGRAFIKPACK 

Lär Dig göra egna tecken på ett ENKELT och 
LÄTTFATTLIGT sätt. 

MUSIKPACK 

Av samma pedagogiska klass som höggrafikpacken. 

Gör musik med din VIC-20. 

DR WATS0N BOOK 

Elementär lärobok i assemblerprogrammering. 
Assembler och monitor ingår. 

PROGRAMERINGSHJÄLPMEDEL 

Verkligt proffsiga hjälpmedel för både nybörjare 
och den mer avancerade. Rimliga priser. 


******* FÖR DEN PROFFESSIONELLA ANVÄNDAREN ******* 


VIC PRO 

W0RDCRAFT 20 

Ett enkelt men användbart ordbehandlingsprogram. 
Det fullvuxna ordbehandlingsprogrammet. Säljs i 
modul med 8K extra minne. 

DATABAS 

För Dig som vill lägga grammofon skivsamlingen och 
dy ligt på data. 

Dessutom : Expansionsminnen till 
konkurenskraftiga priser. 


Vi bevakar kontinuerligt det senaste nya i både Europa och USA. 
Ring eller skriv efter vår prislista - den kostar inget! 

TIAL TRADING, Box 516, 343 00 ÄLMHULT, TELEFON 0476-12304 
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TECKENGENERATOR 


Användning av definierade teckensatser 

Vid många programmeringstillfällen är det praktiskt att göra en egen 
teckensats (för ex. högupplösande grafik, spel, specialtecken). 

VIC-20 har möjlighet att lägga teckensatser i RAM-området. Detta gör 
det möjligt för användaren att programmera teckensatser efter eget 
gottfinnande och använda den i program. 

När vi talar om en (1) teckensats så är det inte riktigt sant. VIC-20 
har nämligen två egna teckensatser. Den första ligger på adressen 32768 
(hex $8000) till adress 34815 och innehåller punktmönster på tecken 
0-255 där tecken 128-255 är "REVERSE" vända tecken. Den andra tecken¬ 
satsen startar på adressen 34816 (hex $8800) och är nästan identisk med 
den första. En del tecken är dock ersatta med "gemena bokstäver". 

Kretsen 6561 i VIC-20 innehåller 16 8-bits k ontrollreg ister som 
används för färg, horisontell och vertikal förflyttning av bildskärmen, 
ljud mm. Teckensatsens läge i minnet bestäms av bit 0-3 i kontroll- 
register 6. I normalmode är innehållet i dessa 4 bits 0 och generatorn 
startar på adressen 32768 decimalt. Genom att trycka på SHIFT och 
C0MM0D0RE tangenterna eller genom kommando POKE 36869,242 blir Bit 1 i 
register nr.6 en Logisk etta (1). Generatorn startar nu på adressen 
34816. En logisk nolla i Bit 2 och 3 i registret betyder att generatorn 
ligger på adress 32768 plus det binära värdet av Bit 0 gånger 1K. 
OBSERVERA: 

De 4 Bits ger inte själv någon adress utan modifierar bara startadres¬ 
sen. Följande är några värden för Bits 0-3 och de därtill hörande 
startadresserna 


3 

2 

1 

0 

Startadress 


Genom detta speciella sätt 

0 

0 

0 

0 

32768 

+ 

0 

★ 

1K = 32768 

bilda adresser ligger alltid 

0 

0 

1 

0 

32768 

+ 

2 

* 

1K = 34816 

startadressen i början av 
ett 1K block. För den norm¬ 

1 

1 

0 

0 

4096 

+ 

0 

★ 

1K = 4096 

ala användningen utnyttjas 

1 

1 

0 

1 

1 1 

+ 

1 

★ 

1K = 5120 

adressen 5120, då teckengen¬ 

1 

1 

1 

0 

1 1 

+ 

2 

★ 

1K = 6144 

eratorn behöver 2K (2098 

1 

1 

1 

1 

1 1 

+ 

3 

* 

1K = 7168 

bytes) och RAM området i 
standard VIC-20 eller med 


3K utbyggnad räcker till adress 7679. POKE 36869,253 lägger början av 
teckensatsen vid 5120. När startadressen är bestämd och register nr. 6 
är ändrat är teckengeneratorn färdig för laddning. För att skydda 
generatorn från överskrivning är det en fördel att ändra pekaren till 
slutet av RAM området. (Adress 51,52,55,56) (POKE 51,255:POKE 
52,19:POKE: 55,255 :POKE 56,19) 

När man anväder sig av en 8x8 matris har man plats med 256 tecken i 
2K RAM-minne. Vid 8x16 matris är det 128 tecken. För att slippa nya 
teckendefinitioner är det möjligt att ladda en del av de redan 
definierade tecknen från adressen 32768 i en del av det nydefinierade 
teckenminnet. Ex. när man behöver versala bokstäver. 


Här intill ser du ett exempel på 
definition av ett nytt tecken. 
Kinesiskt skrivtecken för "TRÄD". 
Dessa 8 tal laddas nu efter var¬ 
andra in i generatorn. Den plats 
där tecknet lagras motsvarar 
Screen-Code. Ex. Startadress 5120, 
ett tecken lagrat på adress 5129 
motsvarar t.ex skärm-Code 2 d.v.s 
tecknet finns i position 2 i 
teckensatsen. forts, nästa sida. 


2 7 2 6 2 5 2 4 2 3 2 2 2 * 2 ° 



24 

24 

255 

60 

90 

153 

153 

24 
































Området är så indelat att den plats där första tecknet lagras, senare 
kan tagas fram med Screen-Code 1. Om vi lägger vårt tecken i adressen 
5129 decimalt kan vi senare få fram det med: PRINT CHR$(65). Värdet 24 
i exeplet måste alltså användas i cell 5129. 

5129 = 24 

5130 = 24 

5131 = 255 

5132 = 60 o.s.v motsvarande det avbildade tecknet på sid 10. 

Tecken nummer tre måste därför börja på adress 5137. Detta nya tecken 
kan då fås fram med CHR$(66). Omkoppling från 8 x 8 Bit till 8 x 16 Bit 
görs med k ontro11reg i ster nr. 4 med adressen 36867 decimalt. 

I normalmode befinner sig där värdet 174 C 8 x 8 - matris ). 

POKE 36867, PEEK (36867) AND 254 (8x8 - matris ) 

POKE 36867, PEEK (36867) OR 1 - ( 8 x 16 - matris ) 

Vi är nu beredda att studera programmet på sidan 44-45 
När man startar programmet märker man att markören har en märkvärdig 
form. Detta beror på att som markör ligger tecknet med ASCII-code 160 
(reverserad - space) och detta är inte definierat i nya teckensatsen. 
Som markör visas bit-mönstret som finns i adress 5120+160* 8=6400 och 
åtta bytes upp. 

Man kan få markören att se normal ut om man i dessa 8 adresserna lägger 
in 255 


Rad 20 - 40 laddar de första 128 tecknen i den nya generatorn. 

Rad 50 - 80 Läser in de nydefinierade tecknen (25 stycken) och lägger 
de i nya teckensatsen. 

Rad 90 lägger fast den nya teckensatsens startadress och startaderessen 
till video-matrisen. 

Sedan följer DATASATSER där de nya tecknen definieras. 

På rad 2000 ligger ett maskinkodsprogram för som gör det möjligt att 
arbeta snabbt med programmet. 


Kontrollregister 6 36869 


7 

6 

5 

4 

3 

2 

1 

0 

32768 


0 

0 

0 

0 

0 

0 

1 

0 

34816 



8800 
8000 hex. 


0000 hex. 


Undre teckensats normal. 0m tangenterna används normalt är den undre 
teckensatsen stängd. 0m SHIFT-C0MM0D0RE tangenterna trycks ner 
inkopplas den övre tec kensa 11 sen. När du knackat in programmet och 
exekverar det kan du för skoj skull trycka run/stop. Då du gjort detta 
kan du se vad som händer då du skiftar register. Håll nere 
COMMODORE-tangenten och tryck samtidigt på SHIFT-tangenten så skiftas 
registren. Lycka till med programmeringen som finns på sidorna 46 och 
47. 
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KONTROLLERA DIN VIC MED JOYSTIC. 


Joystick finns som alternativ för att styra flera av de standardspel som 
finns till VIC-20. Med joystick kan man med enhandsgrepp påverka en eller 
två kontakter samtidigt. På joysticken finns det också en femte kontakt 
monterad, vilken ofta använs som avfyringskonta k t. Joysticken kan 
illustreras med figuren här under. 

(JOY 0) 

STIFT 1 

i 

j 

(JOY 2) 

STIFT 3-! = ! — 

i 
i 

STIFT 2 
(JOY 1) 

Handtaget som kan föras åt höger vänster fram och back är anslutet till 
kontakterna 1 till 4 . Handtagets centrum är anslutet till stift 8 (jord). 
Genom att vicka joysticken framåt slutes jordkontakten (stift 8) med kontakt 
1 (stift 1 = JOY 0). Vickas den åt något annat håll så jordas respektive 
stift. Det går också att vicka den diagonalt och jorda ned två stift 
samtidigt. ( ex. JOY 1 och JOY 3 ). På det sättet finns det faktiskt 8 lägen 
förutom "avfyringsknappen", vilken jordas med stift 6. 


AVFYRNINGSKONTAKTEN 
*** FIRE BOTTOM *** 
| 

(JOY 3) STIFT 6 

- STIFT 4 

1 2 3 4 5 
0 0 0 0 0 
0 0 0 0 
6 7 8 9 


Så här ligger de olika signalerna i registren: 
SIGNAL REGISTER BIT DATARIKTNINGSREG I STER 


JOY 0 

37137 

2 

37139 

JOY 1 

37137 

3 

37139 

JOY 2 

37137 

4 

37139 

JOY 3 

37152 

7 

37154 

STIFT 6 

37137 

5 

37139 


Vi skall göra ett litet programexempel för att testa Joysticken. 


5 POKE 37154,127 
7 PRI NT "T 

10 R=PEEK<37137> : B=PEEK<37152) 
20 IF HOT R RND 4 THEN 60 
30 IF NOT R RND 8 THEN 90 
40 IF NOT R RND 16 THEN 120 
50 IF NOT B RND 128 THEN 150 
55 GOTO170 

60 POKE 7690,160 : POKE 38410,2 
80 GOTO 170 

90 POKE 3174,160:POKE 38894,2 
110 GOTO 170 


120 POKE 7922,160:POKE 38642,2 
140 GOTO 170 

150 POKE 7943,160:POKE 33663,2 

170 IF HOT R RND 32 THEN 190 

180 GOTO 7 

190 8=8174:F=38894 

210 FOR 1=1 TO 23 

220 POKE S,160 

230 POKE F,2 

240 S=S-22 

250 F=F-22 

260 NEXT I 

270 GOTO 7 


Register 37152 som är port B har adress 37154 för datariktningsregistret. 
Kontrollera det normala värdet genom: PRINT PEEK(37154) här får du svaret 
255 vilket gör att registret ser ut så här: 

37154 = 11111111 Det se inte bra ut vi behöver en etta enbart på bit 7. 
Ändra det genom rad 5 med POKE 37154,127. Rad 7 raderar skärmen. 

Raderna 20 till 50 känner på ingångarna. Eftersom de jordas ner av JOYSTICK 
måste vi invertera dom med (NOT) för att få rätt funktion. 

Raderna 60 -150 ritar ut en fyrkant på den sida som du för handtaget åt. 
trycker du på avfyringstangenten känner rad 170 det och raderna 190 -260 
skickar då iväg ett skott. Nu är det bara din egen fantasi som kan hjälpa 
dig att använ da de här kunskaperna vi hoppas att du fått. Mer om JOYSTICK 
kan du läsa i boken BYGG UT DIN VIC. 

















Till VIC-klubben 


Den sista veckan har jag slitit mej i håret för att försöka knäcka ett 
problem, med att få en klocka visad i skärmen medan jag exekverar ett 
spel. Jag har P0KA't och PEEK'at och även testat simpla PRINT 
kommandon. Allt utan att lyckas. Hjälp vad gör jag? 


Oj, oj det var inte bra. Men jag skäms nästan för dig. När andra gör 
allt för att behålla håret så sliter du nästan av dig ditt - snälla 
försök att behärska dina känslor! 

över till ditt önskemål. Om du vill visa en klocka i skärmen under 
tiden som VIC väntar på att en tangent trycks ned. Ex vis som i en GET 
sats: 

100 GET A $ : IF A$=""THEN 100 

så kan du stöka undan problemet med följande lösning: 

100 GET A $ : IF A$ = ""THEN PRINT CHR$(19);TI $:G0T0 100 
Om inte, utan att du behöver visa klockan hela tiden under det att 
programmet exekveras, gör sina kalyleringar, måste vi vara lite mer 
HÅRFINA genom att använda oss av en maskinkodsrutin. Varje 1/60 del av 
en sekund stannar VIC. (under tiden ditt prg exekveras) Och gör vadå? 
Verkställer väsentliga operationer såsom uppdatering av JIFFY 
(ögonblicks) klockan och söker av tangentbordet. Vad vi behöver är att 
sätta in en liten extra bit i INTERRUPT rutinen för att få klockan,att 
visas på skärmen. Föresten så är exemplet för en oexpanderad VIC-20. 


1 00 
11 0 
1 20 
130 


1 40 
1 50 
160 


170 
1 80 
1 90 


200 


P0KE 55,29 : CLR 

DATA 1 20,169,28,1 41 ,20,3,169,29,1 41 ,21 ,3 
DATA 169,0,1 41 ,118,29,169,48,160,5 ,1 53 
DATA 112,29,136,16,250,88,96 


DATA 238.118.29,173,118,29.201,60,208 

DATA 34,16 9,0,Ul ,11 8,2$,1 £0,5^56'i 85 

DATA 112,29,105,0,201,58,208,3,169,48 

DATA 56,153,112,29,153,0,30,169 

DATA 1 50,1 53,0,1 50,136,16,23-0,76,1 91 ,234 

DATA 120,169,191,141,20,3,169,234,141,21,3,88,96 

FOR I = 7424 TO 7511 : READ J: P0KE I,J : N EX T 


Klockan sätter du igång med SYS 7424 och slår ifrån den med SYS 7499. 
Det är viktigt att ta bort klockan under tiden du använder dig av vissa 
andra saker exempelvis VI C-bandst a t ion. Detta på grund av att 
störningar kan uppstå med följd att programmet förstörs eller att du 
helt tappar programmet. När du knackat in programmet så spara det innan 
du exekverar (kör) det. Är inte DATA-satserna rätt programmerade funkar 
inte programmet. Det kan dessutom vara bra att ha prg't tillgängligt 
för att MERGE'a (slå ihop) det med något annat program. 0m du inte 
tycker om färgvalet kan du lätt ändra detta - det kontrolleras av 150 i 
början av rad 180. Där ges värdet som skall P0KA's in i färgminnet på 
adress 38400. 


Lycka till med klockan i skärmen! 
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HEJ ! 


VIC-NEWS 
FRAGE- 
BREVLADA 



Jag tror mig ha hittat några fel i VIC-20s ROM: 

1. När RS-232 öppnas och man har X-line interface testas 
DSR-signalen på fel I/O port. SE NEDAN. 

2. När man skall sända på RS-232 och man har X-line interface 
testas DSR och CTS på fel I/O port. SE NEDAN. 

3. När man skall läsa RS-232 status laddas accumulator och 

minnescellen med noll efter avläsning. LDA, STA på adresserna 
FE60 hex och FE62 hex kunde väl ersättas med t.ex LDX, STX. 
SE NEDAN. 

4. När PRINT INT(2.6*2-. 2) utföres skrivs 4, men 2.6*2-.2 är ju 
lika med 5. 

Om jag har rätt får jag då nya ROM? Jag har tid kvar på 
garantin. Serie nummer på min VIC är :WG C 2367 


Hälsningar 

Pe r-0lof Svensson 


Rämnesgatan 1 
654 61 KARLSTAD 
Tele. 054/183310 


efter 16.00 


1 . 


OPEN 

rs-; 

233 



F 50 C 

LDA 

$0294 

6551 command register 

F 50 f 

L SR 

A 



F 51 0 

BCC 

$ F 51 B 

hoppa om 3- line 


F 51 2 

LDA 

$91 20 

?? borde vara 

$911 0 

F 51 5 

ASL 

A 



F 51 6 

BCS 

$F 51 B 

hoppa om DSR=1 


F 51 8 

JMP 

$ F 01 6 



F 51 B 

LDA 

$029B 

fortsätt ning 


TRANSMIT 

BYTE RS- 

232 


EFEE 

LDA 

$0294 

6551 command register 

EFF1 

LSR 

A 



EFF2 

BCC 

$E F FB 

hoppa om 3- l i ne 


EFF4 

BIT 

$91 20 

?? borde vara 

$911 0 

EFF7 

BPL 

$ F 01 6 

hoppa om DSR=0 


EFF9 

B V C 

$ F 01 9 

hoppa om CTS=0 


EF FB 

LDA 

#0 

fortsättning 



SÄTT STATUS 


(inget fel) 



F 01 6 

LDA 

#$40 

DSR signal missing 

F 01 8 

BIT 

$1 0A9 

F 01 9 = L D A $10 

CTS signal missing 

F 01 B 

0RA 

$0297 

RS-232 STATUS 

REGISTER 

F 01 E 

STA 

$0297 



F 021 

LDA 

#$40 



READST 



t 

F E 5 7 

LDA 

$BA 

current device 

nummer 

F E 5 9 

CM P 

#2 



F E 5 B 

BNE 

$ F E6 8 

hoppa om ej RS 

-232 

FE5D 

LDA 

$0297 

RS-232 STATUS 

REGISTER 

FE60 

LDA 

#0 

? ? 


FE62 

STA 

$0297 

? ? 


FE65 

RTS 




Det är väl känt 

att det funkar enligt Din beskrivning i puntk 

detta 

på 

många 

datormärken. INT 

funktionen avrundar nedåt till 

jämt 

heltal vid 

negativa tal. 



Något byte av VIC' rom kan därför 
Skriv istället: A-2.6 : 2-.2:PR INT 
Prova också: ?INT(-.2) separat. 


inte komma 
INT(A) 


på fråga. 


REDAKTIONEN 





















UTNYTTJA VIC-20's INTERRUPT! 


Vic's interrupt-ve kt or Ligger 


på 

I 


adress 788 och 789. Genom att ändra 


dessa adresserna kan man få Vic'en att hoppa dit man själv vill när den 
får interrupt. Interrupt får den varje gång VIA-timern räknar till 
noll. Var ifrån den skall räknas ner väljs av adresserna 37159 och 
37158. 

I vanliga fall görs interrupt 60 ggr i sekunden för att räkna upp 
klockan och för att få cursorn "markören" att blinka. Om du vill ha 
interrupt oftare poke'ar du bara ett mindre tal på adress 37159 än vad 
som redan står där (72). 

Ex. 7PEEKC37159) 'return' 

72 

För att återgå till normalt värde: POKE 37159,72 

EGNA CTRL TECKEN! 


Om du vill göra egna CTRL-tecken på t.ex fun k t ionst angenterna så 
ställer du först om interrutpekaren så att den pekar på adress 6000. 
Detta måste göras med ett enkelt mask inspråks-program. 

PS: Glöm ej att först lägga din rutin på 6000. 


SEI 

LDA #112 
STA 788 
LDA #23 
STA 789 
CLI 
RTS 


1 20 

169,11 2 
1 41 ,>-Q,3 
169,23 
1 41 , 5 M ,3 
88 
96 


'L°‘ 


Denna rutin gör 
6000. Den rutin 
(76,1 91 ,234) så 


att när CPU'et får interrupt så hoppar den till adress 
du la upp på adress 6000 måste sluta med JMP 60095 
att den sedan gör sin vanliga interrupt rutin 

Björn Sahlberg, EKERb 


Vi har inte hunnit att kontrollera om Björns prg funkar. Finns det 
någon som har ideer om programmet tar vi gärna emot dessa! Ett exempel 
finns med i tidningen. 

ANNONS »ANNONS »ANNONS »ANNONS »ANNONS »ANNONS » ANNONS » ANNONS » ANNONS »ANNONS 


********** PROGRAMBANKEN ********** 

VIC-20 Datorer - tillbehör och 
Programvara i massor - finns i 
PROGRAMBANKEN till lågpris. 

CR-TEKNIK DATA 
Björkered 
312 00 LAHOLM 
TEL. 0430-26179 



med en VIC-1515 Grafisk Printer!! 


ANNONS » ANNONS » ANNONS » ANNONS » ANNONS » ANNONS » ANNONS » ANNONS » ANNONS » ANNONS 


En bra ide' med programbanken, i den kan du finna många nyttiga program. 
Enda nackdelen som jag ser är att trycket kunde vara utav bättre 
kvalitet! 

En annan sak som jag saknade var alla böckerna på SVENSKA som finns till 
VIC-20. Curt Rehnberg skriver i sitt brev att det är en ny upplaga på 
gång, dessutom kommer den att bli enbart med VIC prylar vilket vi ser som 
mycket positivt. När den nya PROGRAMBANKEN kommer har vi ingen uppgift 
om. Det kommer specialerbjudande på programvara enbart för VIC-klubbens 
medlemmar, allt enligt Curt Rehnberg. 

Vi tycker detta låter spännande och ser fram emot mera information. 
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VIC-NEWS 

FRAGE- 

BREVLADA 


Det finns en hel del VIC-användare som inte har manualerna till SUPER 
EXPANDER och MASKINKODS MONITOR'n. Detta måste rådas bot på. Vi har med 
båda dessa i mitten på tidningen och det ger, den som vill, möjlighet 
att lossa sidorna 17 till 40 och på det sättet erhålla de två 
manualerna i, så att säga, riktigt utförande och med rätt sidnum¬ 
rering, det blir enklare att hitta då. 

Om du lossar sidorna 17 till 40 skär dem mitt i tu kan du sedan vika 
dom till A5 format och sätta ihop bladen med en häftapparat. 

Manualerna är lika de som medföljer de båda cartridgen med undantag av: 

SUPER EXPANDER manualen innehåller en massa extra programexempel som du 
kan träna på och ändra efter eget tycke. Programmen ger dig tips om vad 
man kan åstadkomma med SUPER EXPANDER. Har du några andra exempel så 


tar vi gärna emot dina programförslag, 
SUPER kommer det att presenteras i VIC 

MASKINKODS M0NIT0RN's manual 
innehåller också användbara program. 
OBS! spara programmen innan du 
exekverar (kör dom). För att börja 
från början tar vi första programmet 
som finns på manualens sista sidas 
baksida. Programmet definierar 
fun k t ionst angenterna Fl - F8 med 
vilka saker som helst. Du bestämmer 
vad med DAT A-sa t serna rad 300 & 310. 

På pärmens insida hittar du ett 
annat program som definierar Fl - 
F8. Här har vi lekt med att ha olika 
funktioner. Vi styr skärmfärgen, 
ljudet, tangentbordet och 
bandstationens motor. Under 
programmet ser du en förklaring till 
F-tangenterna. Manualens sida 14 är 
ett prg som ökar storleken på 
bokstäverna. Har du något tips där 
detta kan användas? Under figur 
registret finns ett 

"Programmeringshjälpprogram" där du 
har de kommandon som mest används i 
basic. Då du laddat programmet 
använder du SHIFT och den tangent 
som är förkortningen på det kommando 
du vill ha utskrivet. Ex. 'SHIFT R' 
blir RIGHT$ osv. Sidan 2's program 
ger signal då du skrivit 84 tecken. 

Är bra att använda vid programmering 
eftersom VIC accepterar 88 tecken 
får du på det sättet en varning då 
skriver det 84 precis som på en 
skrivmaskin. Reverserade rem rader 
får du av programmet på sidan 10. 
Hoppas att båda manualerna kommer 
att ge dig och hela familjen 
kunskapsgivade och roliga timmar vid 
datorn. 


är det något som vi tycker är 
NEWS. 
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Hur mycket är 3 589? Är det så många kronor som man tjänar i veckan är 
det ganska mycket. Är det antalet åskådare vid en landskamp i fotboll 
blir siffran strax mindre imponerande. Gäller det antalet tillgängliga 
bytes i VIC:s minne kan man väl ibland tycka att det är i minsta laget 
(även om det är 3.5 gånger mer än vad som finns i en viss annan dator - 
inga namn!). 

Den här artikeln ska ge några tips om hur du ska pressa maximalt ur ett 
begränsat minnesutrymme på din VIC. Delvis har jag hämtat inspiration 
från en uppsats i samma ämne i majnumret av COMPUTE! 

Antag att du är ute och går med hunden (fästmön, fästmannen, svärmor 
eller vad du vill). En programide infinner sig plötsligt. Full av iver 
ilar du hemåt för att kasta dig över din VIC och börja knappa in de, 
första programraderna. Det ska nog gå bra, tänker du, alltmedan du blir 
mer och mer intrasslad i en härva av GOTO-satser och loopar. Ditt 
program blir till slut både långt och snårigt. Det beror på att du 
brutit mot en grundregel i all programmering: Du ska inte göra 
hastverk. Med andra ord: Lägg ned ordentligt med tid på att tänka 
igenom hur ditt program ska byggas upp på ett logiskt sätt. Rita 
flödesplaner (ja, jag vet, det är tråkigt, men det är nyttigt), skriv 
ditt program för hand innan du börjar knappa in det, gör klart för dig 
hur hela programmet ska fungera i färdigt skick innan du börjar 
\ programmeringsjobbet. Medan du tänker hinner du sortera bort dåliga och 

krångliga lösningar - och det är nästan alltid detsamma som 
j minneskrävande lösningar. Alltså: Ett genomtänkt och logiskt uppbyggt 

program är den bästa sparbössan när det gäller att snåla på 
minnesut rymme. 

Ett bra program ska vara lättläst och överskådligt. En utomstående ska 
ha en fair chans att förstå programmet. Och framför allt: Man ska själv 
begripa vad man gjort när man efter några månader studerar sitt 
program. Detta åstadkommer man bl a genom: 

- Rikligt med REM-satser, som förklarar vad som händer i de olika 
programavsnitten. 

Variabelförklaringar i början av programmet, liksom 
symbolförklaringar till cursorförf l y11 ningar mm. 

- Glest skrivet program. 
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Det är tyvärr bara att konstatera att samtliga ovanstående punkter är 
minnesk rävande. Är det akut bytebrist måste de därför få ge vika för 
mer minnessnåla lösningar. Några exempel: 


- Slå in följande programrad: 

10 REM VI TESTAR MI NNESUTRYMMET 

Kolla därefter ledigt minnesutrymme med PRINT FRE(O). På skärmen står 
det 3 550. Raden tog alltså cirka 30 bytes. Antag då att du i ett 
program har 10 st REM-satser av motsvarande längd. Plocka bort dem 
och du har sparat ungefär 300 bytes! 


- Se på nedanstående programrader: 
100 IF AOB AND C>D THEN 500 
110 PRINT "VI SKA SPARA BYTES" 


Här har du två möjligheter att spara utrymme. Dels kan du hoppa över 
mellanslagen i utskriften. Skriv så här: 

100 IFAOBANDODTHEN500 

110 PRINT"VI SKA SPARA BYTES" 

Ur mask inskri vningssynpun k t är detta en styggelse och programmet blir 
inte precis mer lättläst av det. men det sparar 6 bytes. Dessutom: Du 
kan skriva max fyra rader med samma radnummer. Varje radnummer upptar 
5 bytes så du kan göra besparingar genom att använda kolontecknet i 
stället för nytt radnummer. Programmet ser då ut så här: 

100 IFAOBANDC>DTHEN500:PRINT"VI SKA SPARA BYTES" 

Jämfört med utgångsläget har vi sparat 10 bytes. Inte illa! Märk att 
vi har behållit mellanslagen i strängen "VI SKA SPARA BYTES". Den ska 
ju skrivas ut på skärmen, -och så långt får vi inte gå i vår sparnit 
att skärmutskrifterna blir svårlästa! 


Utan tvekan blir nu programmen rätt besvärliga att läsa. Att hitta i 
dem kan bli svårt. Jag vill därför föreslå följande: Dokumentera alla 
seriöst menade program skriftligt. Dokumentationen kan bl a innehålla: 

- programide 

- programmets uppbyggnad och variabelförklaringar 
-subrutiner 

- förklaringar till knepiga algoritmer 

- helst hela programmet snyggt och prydligt utskrivet och försett med 
kommenta rer 

- ev flödesplaner 
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NEWS 


Samla programdokumentationerna i en pärm. Lätt att hitta och hitta i, 
allt på ett ställe, lätt att ta kopior om så behövs. 


VIC:s Basic ger i och för sig möjlighet att använda variabelnamn på upp 
till 255 tecken. Internt arbetar datorn dock bara med de två första 
tecknen i variabelnamnet. Långa variabelnamn gör visserligen programmen 
tydligare, men eftersom de upptar dyrbart utrymme är det ofta lämpligt 
att begränsa sig till max två tecken. En variabellista i 
dokumentationspärmen är till stor hjälp! Se följande program: 

100 FOR V0LYM=1 TO 10 

100 K0STNAD=V0LYM*5 + 10000 

120 N EX T VOLYM 

Vi kan lätt korta ner programmet till att se ut så här: 

100 F0RV=1T010:V*5+10000:NEXTV 
Besparing: Cirka 30 bytes! 

Antag att du på 10 ställen i ett program vill ha 5 "stjärnor" 
utskrivna. Du kan då skriva så här: 

100 PRINTTABC15)"*****" 


200 PRINTTABC15)"***** 


300 PRINTTABC15)''*****" 
osv. 

Det är både minneskräv ande och 
dålig programmering! Använd istället 
subrutiner för alla programdelar som 
skall upprepas. Så här: 

100 G0SUB1000 


200 G0SUB1000 


300 G0SUB1000 


1 000 PRINTTABC15)''*****" 

1010 RETURN 

Vill du vara riktigt smart lägger du dina subrutiner i början av 
programmet. Det blir då snabbare, eftersom VIC söker subrutinerna efter 
radnummer. 

När man arbetar med indexerade variabler kan följande två saker vara 
bra att tänka på: 



43 










































1. Slå in följande programrad (skriv NEW först): 

10 DIM A(100) 

Kör "programmet" och kolla därefter ledigt minnesutrymme. Anteckna 
siffran. Antag nu att du inte hade behövt högre index än 40 (du tog 
till ordentligt eftersom du inte var riktigt säker på hur lång lista 
du behövde). 'Ändra rad 10 till DIM A(40) och kör. Kolla sedan igen 
hur mycket minne du har kvar och jämför med siffran vid första 
kollen. Hur mycket minne slösade du bort? 300 bytes till ingen 
nytta ! 


2 . 


Är det alltid nödvändigt att använda flyttal? Många gånger går 
kanske precis lika bra med heltal (%-tecknet efter variabeln), 
finns nämligen en källa till dramatiska minnesbesparingar. Kör 
följande två program och jämför. 


10 DIM A(100) 

20 FOR 1= 1 T0 100 
30 A(I)= I 
40 NEXT I 
50 PRIM FRE(X) 


10 DIM A%(100) 

20 FOR 1= 1 T0 100 
30 A%(I)=I 
40 NEXT I 
50 PRINT FRE(X) 


det 

Här 


Jämför och du ser att du sparar 300 bytes genom att använda heltal. 
Det är inte dåligt och väl värt det lilla besväret att skriva ut ett 
procenttec ken. Du sparar med andra ord 3 bytes per element om du går 
från flyttal till heltal. 


Det är viktigt att instruktioner mm som lämnas på bildskärmen under 
programmets gång är lätta att förstå och läsa. Men överarbeta inte! Det 
finns vissa möjligheter att vara sparsmakad. Förkortningar är 
användbara. Skriv "KR" i stället för "KRONOR", "T0T" i stället för 
"TOTAL" osv. Det är visserligen kul att göra snitsiga ramar mm som 
livar upp programmet, men det är bättre minnesekonomi att använda sina 
dyrbara bytes till att t ex vara noga med att inte vad skräp som helst 
accepteras som input. 

Ibland finns det möjlighet att dela upp programmet i två klart 
avgränsade delar: En första som bara lämnar information och 
instruktioner och en andra som utgör själva programmet. I sådana fall 
går det naturligtvis utmärkt att spara de två programdelarna under två 
namn på kassetten och sedan läsa in dem och köra dem ett i taget. Det 
första programmet slutar då med en in l äsningsinstruk t ion för inläsning 
av det andra. 

Antag att du i ett program har en mängd DATA-satser som under 
programmets gång skall läsas in, t ex 10 DATA-satser med säg åtta 
fyrsiffriga tal i varje sats. Det tar upp en hel del palats. Kniper det 
kan du istället göra så här: 

- Gör ett program som läser in de åttio talen till en fil på ditt 
kassettminne. 

- Där ligger talen snyggt och prydligt. När du sen behöver dem i ditt 
program läser du in dem från filen istället för med READ-DATA och du 
har sparat 10 rader. Visserligen har du fått en programsnutt med 
inläsning från en fil, men det blir ett icke föraktligt netto i alla 
fall. 
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Ska vi försöka oss på en sammanfattning till slut? 

- Bygg upp programmen metodiskt och Logiskt. Inga hastverk - de blir 
nästan alltid fuskverk! 

- Inga REM, packa programmet (inga mellanslag, använd kolon istället 
för radnummer). MEN: Dokumentera programmet på annat sätt. Annars får 
du det besvärligt. 

-Inga excesser med långa v ariabe l namn. Anteckna istället i din 

dokumentation vad variablerna står för. Förresten - försök att alltid 
använda samma variabelnamn på samma variabeltyper i olika program, t 
ex F för fördröjningsloopar: F0RTF=1T01000:NEXTF. Det blir ett gott 
stöd för minnet. 

- Använd subrutiner. 

- Dimensionera inte indexerade variabler högre än vad som behövs och 
använd heltal istället för flyttal. 

- över informera inte - men var ändå tydlig. Dela eventuellt upp 
programmet i två bitar, där den första är en ren inf o-bit. 

Har du mycket DATA-satser kan de läggas upp på en fil och läsas in 
från externminne när de behövs. 


Följer du de här råden ska du se att ditt liv med VIC blir ändå 
lättare. Om du ändå lider av kronisk minnesbrist finns det bara en sak 
du kan göra: Gå och köp dig ett lämpligt antal kilo expansion! 



VIC DAT0RT8G. 


commodoreVIC 20 The hesl Ihhih- eompuler in (he \\<>r(<). 


Detta lilla program ger dig, med VIC 
SUPER EXPANDER & VIC REL, möjlighet 
att styra din modelljärnväg och sam¬ 
tidigt följa med händelseförloppet 
på skärmen, precis som i verklig¬ 
heten fast mycket enklare och i 
miniatyr. Det finns många sätt att 
koppla ihop modell- järnvägen med 
VIC REL, vi har valt ett av sätteVi 
för likström. Har du några frågor 
eller några synpunkter skriv en rad 
till oss. Programmet finns på 
sidorna 50-51 . 


-VIC-REL: 


1 

o 

2 

o 

3 

o 

4 

o 

5 

o 

6 

o 

7 

o 

8 

o 

9 

o 

10 

o 

11 

o 

12 

o 

14 

+ 5V o 

15 

- 5V O 

16 

o 

17 

o 

18 

o 

19 

o 

20 

o 




B= Magnet under tåget 
A= Tungelement 


+ 




12V- 

12v + Tågtrafo 
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.forts, från sidan 11 
EXPANDERA med 3K-RAM 


BIRDATTACK 


5 P0KE36879,24 

7 PR I NT" nWWSrsTsTiTsTsTsT^HNTfl" 

8 REM ######**#***#*# 

Q £ $ 

10 REM* EIRB RTTRCK * 

11 REM* * 

12 REM*************** 

14 REM LRBDfl TECKEN * 

15 P0KE51 , 255: P0KE52 , 19 '• P0KE55 , 255: P0KE56, 19 : CLP. 
17 PR I NT “ K?M?M^TVR MED SBKSCVHNSTER) 

20 FORI= 1T01024 
30 P0KE5120+1.. PEEK<32768+1 "> 

40 NEXT 

58 FORI=0TO139 
60 RERBR 
70 P0KE6144+I.. R 
80 NEXT 

30 P0KE36863,253:P0KE36866,PEEK <36866)OR128 
100 REM * FAGEL * 

BRTR128,133,243,255.. 255,243,133,128 


S>S<-HöGER- 



110 

120 

130 

140 

150 

160 

170 

188 

190 

200 

210 

220 

230 

240 

250 

268 

270 

280 

293 

300 

310 

320 

330 

350 

368 

370 

388 

330 

335 

400 

485 

410 

415 

420 

425 

450 

465 

466 

467 

468 


BRTR255,255,255,255,255,255,255,255 
DATA123,230,248,208,248,228,134,128 
BRTR48,56,120,124,124,126,126,126 
BRTR126,126,126,124,124,128,56,48 
REM »VATTENTUNNAN# 

BRTR12,30,53,62,28,30,12,31 
BRTR62,94,158,30,10,17,33,49 
BRTR128,64,48,16,56,56,56,56 
BRTR31,30,30,30,14,12,12,14 
BRTR48,120,220,124,60,120,48,120 
BRTR252,122,121,120,80,136,132,148 
DATAS1,16,56,56,56,56,0,0 
BATR248,120,120,120,112,48,48,112 
REM * BRUNNEN * 

BRTR221,221,0,247,247,8,187,187 
REM * FÅGELN SKITER * 

BRTR8,8,8,8,8,8,8,8 
REM * VATTEN SPÄNNEN * 

BRTR255,255,0,255,255,0,255,255 

FOR I=828T01022 • RERBR ; POKEI, fl : NEXT : POKE1800, G 
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PRI NT "71" '• FORI=38840TO38883 : POKEI, 6 : NEXT : POKEI 004,0 '• POKEI 001 
POKE8160,138 '• P0KE8153,139 : P0KE3138,137 
REM * GUBBEN LIGGANDE * 

BRTA0,8,0,15,143,255,255,15 
BATR0,8,4,174,251,255,255,190 
BRTR0,0,28,20,28,28,28,0 
REM * GRHSMATTAN * 

BRTR54,255,255,255,255,255,255,255 
REM # TRÄDET * 

BRTR0,0,224,248,255,255,255,255 
BATA0,8,0,0,192,i92,192,240 
BATR248,252,254,255,255,255,255,255 
BRTR255,255,255,254,248,240,240,128 
BRTR120,120,120,120,120,120,128,128 

FOR I =38510TO38839 : POKEI, 4 : NEXT '• FQRI=38400TO38503: POKEI, 7 : NEXT 
PRKE81S4,152: P0KE8142,152: POKE8120,123 • P0KE8838,123 '• POKE8076,148 
PÖKE8077,149 = POKE8099,150•P0KE8121,151 

P0KE38884,0 '• P0KE38862,0 ; P0KE38S48,5 : P0KE38841,5 : P0KE38818, j • POKE 
PGKE38796, 5 :P0KE38797, 5 


38813,5 












BIRDATTACK 



470 FORI=8164T08185:POKE I,147:PQKEI+30728,5 : NEXT 

480 PQKE7742,81 : P0KE77S4,66'■ P0KE77S3,78 : P0KE77S5,77:P0KE7741,67:P0KE7743,67 
482 P0KE7719,77:POKE7720,66:P0KE7721,78 
498 REM * BRUNNEN * 

500 P0KE3143,141:P0KE8144,141:P0KE38863,2:F0KE38864,2 
510 REM * VATTEN SPRNNEN * 

520 P0KE8162,143 : P0KE38882,4: BX=8161: BBJi*7680 
600 AX= I NT< RND <1> *12 > 

610 AV=AX*22+7739 
700 FOR1=31022 

782 POKERX+I-3,32 : POKERX+1+20,32 : POKEA>;+I-24,32:GOSUB5008 
730 POKERX+I-2,128 
740 POKERX+1-1,129 
750 POKERX+1,130 
760 ONZXGOTO780 

770 POKERJi+I-23,131: ZX=1: GOTO800 
780 POKERX+I+2i,132:Z’/=0 
790 SVS<828> : GOSUB5000 
795 PRINT"SIST ; PEEK< 1804) J ! 'LITER" 

800 NEXT 

8i0 POKEAX+22,32:P0KER7.+2i,32:POKERX+20,32:POKERJi+43,32 : GOTO600 
1998 REM* MASKINKODS-* 

1995 REM* PROGRAM * 

2000 DAT A173,232,3,201,8,288,189,165,197,20i,37,248,84,20i, 29,208,71,174,233,3,2 
34 

2810 DRTR234,234,234,234,224,3,234,234,248,59,172,234,3,192,1,248,14,169,i38,i57 
2020 DATA206,31,169,1,141,234,3,76,123,3,234,169,140,157,206,31,169,0,141,234,3, 
234 

2038 DAT A169,137,157,184,31,232,169,32,157,184,31,157,286,31,282,282,169,139,i57 
, 296 

2040 DATAS1,142,233,3,234,96,234,169,1,141,235,3,96,234,174,233,3,232,234,234,23 
4,234 

2050 DATA224,19,234,234,240,67,172,234,3,192,1,248,14,169,134,157,206,31,169,1.1 
41 

2860 DATA234,3,76,203,3,234,169,136,157,206,31,169,0,141,234,3,234,169,133,157, "l 
84 

2078 DATR31,202,169,32,157,134,31,157,206,31,232,234,169,135,157,287,31,142,233, 
3 

2880 DATA234,96,234,234,234,234,18,0,8,0,234,i73,235,3,291,1,298,9,238,236,3,169 
, 8 

2098 DATA141,235,3,234,96 
4999 REM * FLVOER * 

5009 POKEBBX-22,32 
5005 IFAiX=lTHEN5109 

5810 AAX^INT <RNB< 1 >*4): IFRRJÄ02THENRETURN 
5820 A1 X= 1: BBJi*RX+1 +2 i 

5188 IFPEEK<BBJi+22>>32THENIFPEEK<BBJi+22K141THEN6000 
5193 I FBBJi>8142THENA1 X=8: P0KE36875,8: RETURN 

5105 TTfi® <8 i 42-BBJS) /5+ i 23: P0KE36875, TTJi ■ POKEBBJi ,142: BBX*BBX+22: RETURN 
5990 REM * TRSFFAB * 

6008 PP?s=PEEK C1001) : P0KE3142+PP7: ,145: P0KE8141+PPX,144: PQKE8143+PPJi, 146 
6819 P0KE8120+PPX, 32: P0KE8121 +PPJi, 32 

6029 P0KE36875,8:F0RI=255T0128STEP~6:P0KE36877,I:NEXT:P0KE36877,9 
6039 PRINT”®ETT SPEL TILL J/N" 

6848 OETA$:IFA$=""THEN6840 
6959 IFfl$="J"THENRUN320 
6052 IFA$="N"THEN6060 
6054 GOTO6040 
6069 SVS64802 
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STILLA NATT 


Här kommer en liten 
programmsnutt som passar 
bra till ny§ rshelgen. 
Stilla natt eller Silent 
night som den heter på 
engelska. Programmet ser 
inte mycket ut för 
världen trots det låter 
det bra. Var observant 
med att programmera 
datasatserna riktigt, 
förväxla inte punkter och 
komman. Ha en trevlig och 
stillsam helg. 


10 F0RR=36374T036877: PGKEfl , 0 • NEXTR 
20 F0KE36S78, i0 
30 PRINT"3" 

40 P0KE36879,26 
50 PRINTTRB<5)"SILENT NIGHT" 

60 RERBfi,B 

70 IFfi=993THENF0RLP=i0TO0STEP-1:P0KE36878,LP■F0RTM=iT02@:NEXTTM,LP 



80 IFR=999THENF0RLF-i i 0508 : NEXTLP ; RESTORE : P0KE36876.> 0 : P0KE36878.' 10 : GOTO60 


90 PQKE36876, R: F0RLP=1T0359*B' NEXTLP '■ GOTO60 

100 BRTR175,1.5,183,.5,175,1,159,3,175,1.5,183,.5,175,1,153,3,201,2,0,.1,201,i,1 


91,3 

110 BRTR195,2,0,.1,195,i,175,3,183,2,0, 


1,183,1,195,1.5,191,. 5,183,1,175,1.5,183 


126 BRTR175,1,153,2,0,1,183,2,0,.1,183,1,195,1.5,191,.5,183,1,175,1.5,183,.5,175 
,1,159 

130 BRTR2,0,1,201,2,0,.1,28i,1,209,1.5,201.,.5,131,1,135,3,207,i.5,0,i,135,1.5,1 
148*BRTR159,1,175,1.5,163,.5,147,1,135,2,999,0 


r 

110 )1 program III 

VI HAR DE BÄSTA TILL¬ 
BEHÖREN OCH SPELEN 

Bangatan 54 
41464 Göteborg 
Tel.031-149377 


TILL VIC-20! 
»ATAMAXX 

HEMDATABUTIKEN 
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JANKEN 

Rekommenderar VIC-20 för hobby, 
utbildning, kalkyler, beräkningar, 
telefonregister m.m. 


Janken har färdiga program 
för din PET- och VIC- dator! 


NUMMERSÄNDARE! 
Reläbox med telefon¬ 
kontakter och program 
495:- inkl. moms 


Köper du VIC-20 hos 
JANKEN kan du 
byta upp dig till 
Commodore 64, 

PET-Commodore, Apple 

eller ABC och få bra betalt för din VIC-20 

utrustning. 




SÖDRA VÄGEN 63, GÖTEBORG 
TEL. 031 -81 31 80 
ARKADEN,TROLLHÄTTAN 
TEL. 0525-32 900 





VIC DAMMSKYDD 



SKYDDA DIN INVESTERING 


SKYDDEN XR TILLVERKADE I LJUSBRUN VINYLPLAST,NED VXVFÖRSTÄRKT 
INSIDA.MATERIALET XR MYCKET MJUKT,OCH XR DlRföR LlTT ATT VIKA 
IHOP.DA SKYDDEN lR VATTENTÄTA,GAR DE HED FÖRDEL ATT TORKA MED 
FUKTIG TRASA.SKYDDEN XR IVEN ANTISTATISKA. 


VIC 20 MED BANDSPELARE. 
VIC 20 CENTRALENHET.... 

VIC 20 BANDSPELARE. 

VIC 1540 SKIVMINNE. 

VIC 1515 SKRIVARE. 

ALLA PRISER INKL. MOMS. 


121:50 
103:25 
.51:- 
121.50 
103:50 


SKYDD FINNS XVEN FÖR:APPLE, TRS 80, ATARI, CROMEMCO, 
SUPERBRAIN, HEATH COHPANY, OHIO SIENTIFIC MED FLERA. 


-M.T AUTOMATIK, BOX 4057, 182 04 ENEBYBERG, TEL: 08/768 83 90- 


PROGRAM OCH TILLBEHÖR 

* 

Vi har mer än 100 program till 
VIC - från spel till avancerad 
matematik. Många program är av 
pedagogiska skäl öppna för 
listning. Vi levererar även 
VIC och alla tillbehör. 

Programvara medföljer gratis 
vid köp av dator eller tillbehör 
från oss. 

Ex. Kassett m 12 spel 75:- 
Högupplösningsgrafik 75:- 
Dito på printer 75:- 
Multimetertillsats 350:- (lev 
aug). Begär ytterligare information 
från ROMAC AB, Box 5008, 175 05 
JÄRFÄLLA 0758-175 20 
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DATOR TS GEN 





5 REM SUP EXPAND 3K 

10 POKE 37138/63 : P0KE655220 = PQKE65S.. 235 : PRINTCHR$<8> 

12 COLOR 1,1,0,3 : GRRPHIC 3 

13 REM POKE 37158/2 : P0KE7S8/194 

15 GOSUB11100:QOSUB11200'• GOSUB11300:GOSUB11480:GOSUB11500 : GOSUB11600'• GOSUB1 i708 
28 V1■1:V2=1:BO=@:VT=1 : VO* 1 

30 REGI0H6 : DRAW 2.. 1808..688 TO 1,680 

31 DRflW 2/1800/530 TO 1/530 

35 CHRP. 11/2/"VIC 20": CHRP 11/11.." VIC .REL" 

40 REGIONS 
50 POKE 36878/15 
100 P=37136 
118 CHRP 13/2/"SFrRI 

111 CHRP 14/2/"SPAR2 

112 CHRP 16/2/"BRHflN 

114 REGION 4 

115 CHRR 17/2/"STRTU 
208 GOSUB 1400 
250 GOSUB 1680 
300 GGSUB9308 : G0SUB7 
1800 GOSUB9990 : TV=TV 
1885 IF WT>TV THEN 1858 
1018 PK=PEEK<R) 

1020 IF(<PKJRNB64>=0 THEN GOSUB 7800:GOTO 1008 
1838 IF<<PK)AND128>=0 THEN GOSUB6080=GOTO 1800 
1050 GOTO1088 

1388 POKER / PK OR 4: G0SUB4888 '■ REG 10N5: CHRR 13/18.-" GRÖN": VT*2 : RETURN 
1480 POKER / PK OR 8: GOSUB4080: REG 10N2 '■ CHRR 13/10/" RÖD " : RETURN 
1588 POKER/ PK OR 16: GOSUB4008: REG 10N5: CHRR 14 ..18/" GRÖN": VT* 1 = RETURN 
1608 POKER/PK 0R32:GO3UB4000:REGI0N2:CHRP14,10/"RÖD ":RETURN 
1999 GOTO 1008 

2080 POKER/0:REGI0N4:CHRR16/10/"FRI " : BO*0 : RETURN 

2100 POKER/1 •• REGI0N4:CHRR 16.. 10.. "BLOCKERAD" : BO* i 
2120 CHRR19/2/" RETURN 

2200 POKER/ 2: REG10N4: CHRR 16/10.."HALVT FRI ": B0=2 
2220 CHRR!9.. 2/" ":RETURN 

4808 P0KE3S875/213 
4810 FOR1=1 T038 ; NEXTI 
4050 POKER/BO:P0KE36875,0 
4090 RETURN 
6008 WT*20 : TV=0 
6083 GQSUB7508 

6807 P0KE36876..288 : FOR.I —1 TO 25:NEXT:P0KE 36876/8 
6810 IFV1 = 1 ftNDVT=2 THEN: REG I QN8 '• GOSUB 11488: GOSUB i 1500 : GOSUB 11100 
6011 REGI 0N5: GOSUB 11288 '• G0SUB2108 

6015 IFV1 = 1ANDVT = 1 THEN '■ REGION0 '• GOSUB 11700: GOSUB 11600: GOSUB 1 i 308 

6016 REGI0N5:GOSUB11200:Q0SUB2100 

6017 IFV1*2THEN ; REGION0:GOSUB11280 
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6018 IFV1=2RNDVT=2THEN '• REGIONS: G0SUB11300: GOSUB11400 

6019 I FV 1 *2RNDVT=1 THEN: REG 10N5 '• GOSUB11180: GOSUB11700 : GOSUB11600 

6020 IF VI>=2 THEN FORI = 1 TO50+VT*50 : G0SUB9998: NEXT: GOSUB2200 
6030 IF VT=1 THEN GOSUB 1600 

6035 IF VT=2 THEN GOSUB 1400 
6040 V1*V1+1 
6890 RETURN 
7000 HT=20:TV=0 

7007 IF VT=1 THEN GOSUBi680:REGION0:GOSUB11180:GOSUB11790:GOSUB11609 
7988 IF VT=2 THEN GOSUB 1498:REGI0N9:GOSUB11309:GOSUB!1498 
7010 GOSUB9808 

7615 IF VT=1 THENGOSUB1388:REGI0N5:GOSUB11599:GOSUB11190:GOSUB11489:GOSUB9068:GO 
TO7850 

7028 IF VT=2 THENGOSUB 1308: REG 10N5 '■ GOSUB 11789: GOSUB 11689: GOSUB 11398: GOSUB90S8 
7059 V1=1:RETURN 

7509 REGI0N4'• IF VT*2THEN:CHRR 17,10,”TAG 1 

7559 IF VT=1THEN:CHRR 17.10,"TAG 2 

7598 RETURN 

9000 FORI=1TO390 : NEXT 

9018 GOSUB 2000:POKE198,9 

9915 REGI0N4:CHRR 17,19,"VRU F1XF3":IK*0:REGI0N2:CHRR 19,2,"VIC 20 DRTOR 
9028 FOR1=1TO1008 ; GET 8$ 

9925 IF R$= "~ !l THENVT = 1:GOTO 9959 
9930 IF R$~" THENVT=2 '■ GOT O 9958 

9933 I Ffi$=" ORI K=45THEN IK=45 : I FR$= 11 THEN : GRRPHIC 9: STOP 
9035 NEXT 

9948 REGI0N4'• CHRR 17,19,"RUT0 START" 

9050 VO* i: POKE i 98,8:1F VT* 1 THEN: REG 10N8 '• CHRR 19,2," RVGANG TAG 1 " 

9953 IF VT=2THEN'• REG10N9:CHRR 19,2,"RVGANG TAG 2 " 

9857 IK*0:RETURN 

9960 FORI = 1TO12:PQKE36876,243:FOR11 = 1T058:NEXT11:P0KE36876,9:FORI1 = 1T025:NEXT11: 
NEXT I 

9065 F0RI=1T0999 : NEXT 
9978 G0SUB2288 
9990 RETURN 

9990 GETR4:: IFfl#0"! "0RVO5THEN RETURN 

9991 POKER,9:0T=359:TV*0:IK=@ 

9992 REGI0N2:CHRR 19,2,”STfiRT MED F7":POKE198,0:VO*VO+1 : REGI0N4 : CHRR17,10,"STOPP 

II 

9993 OETfif- ; TV-TV+l 

9994 IFfi£="ORIK*45THENIK=45 : IFR$=" THEN:GRRPHIC 

9995 IFfl$=” l"THEHGQSUB7500 : G0T09938 
9396 IF0T>TVTHEN9993 

9997 REG10N4 '• CHRR 17,18, “RUTO STRRT" 

9998 IK*0 : POKE198,0:1FBO=1THENG0SUB2108 : RETURN 

9999 OOSUB2200:WT*0 : TV=999 = RETURN 
11188 DRRW 2,310,438 TO 344,349 
11110 DRRW 2,310,438 TO 420,400 
11120 CIRCLE 2,258,258,148,289,18,33:RETURN 
11200 CIRCLE 2,258,258,140,299,39,82 
11219 DRRW 2,310,70 TO 420,175 

11229 DRRW 2,579,319 TO 708,438 

11230 CIRCLE 2,750,250,140,288,17,32:RETURN 
11300 DRRW 2,688,78 TQ590,38 
11310 DRRW 2,680,70 TO 654,169 
11320 CIRCLE 2,750,259,140,209,68,17:RETURN 
11408 DRRW 2,590,99 T0484,280:RETURN 
11588 DRRW 2,404,289 TO 344,340:RETURN 
11600 DRRW 2,654,169 TO 564,250:RETURN 
11709 DRRW 2,564,250 TO 420,400:RETURN 


























MINNESADRESSER FÖR ROM/RAM KASSETTER 


VIC-1210 

3 K RAM 


1 024 - 

4096 

$0400 - 

$ 0 F F F 

VIC-1 110 8 K RAM 

original 
( valbart med 
omkopplare. ) 

4 0N 

3 0N 

2 0N 

8192 - 
16384 - 
24576 - 

1 6383 

24575 

32767 

$2000 - 
$4000 - 
$6000 - 

$3 F F F 
$5 F F F 
$7 F F F 

VIC-1111 

16 K RAM 


8192 - 

24575 

$2000 - 

$3 F F F 

VIC-1211 

Super expander 

40960 - 

491 51 

$A000 - 

$ A F F F 

VIC-1212 

Programmers 

a i d 

28672 - 

32767 

$7000 - 

$7 F F F 

VIC-1213 

Maskinspråk 

m o ni tor 

24576 - 

28671 

$6000 - 

$6 F F F 

VIC-1112 

IEEE-488 


45056 - 

491 51 

$B000 - 

$ B F F F 

VIC-19XX 

Spelprogram 

(självstartande) 

40960 - 

491 51 

$A000 - 

$BFFF 

* VIC-1111 

16 K RAM 

kan ändras 

mel Lan 

block 1,2,3 

och 5 med 

hjälp 


Lödpenna. Detta bör göras av kunnig person för att inte förstöra minnes 
kassetten. 


**** VIC RITPINNE **** 

Detta korta program ger Dig möjlighet att rita i högupplösning med 
joystick. Dessutom på en oexpanderad VIC-20 folkdator. 

Den första raden sätter skärmst or l eken och ändrar skärmfärgen till 
svart. Testa med att ändra första POKE värdet 36879,8 till 36879,47 som 
då gör skärmen grön och röd eller till 36879,97 då du får en vit tavla 
att rita på med blå text. Att prova olika kombinationer så här är 
ganskakul. 

Raderna 1 till 4 sätter upp skärmen och drar en linje runt för att. visa 
användaren vilken yta som finns till förfogande. 

Rad 10 läser X och Y värdet på joysticken. På denna rad måste den som 
programmerar tänka på att det är fler än 88 tecken på raden och därför 
använda sig av förkortade basic-ord. Förkortningar för basic-ord finns 
"LÄR DIG VIC-20" -användarmanual. Bilaga D sidan 133. 

Rad 20 tillåter att punkten flyttas utan att något ritas på skärmen. 

När du trycker på "fi re"-knappen på joysticken släcks punkten och du 
kan då flytta den utan att den ritar. Raderna 50 och 60 plottar och 
räknar fram punkterna. Det är ungefär 2500 punkter att plotta, 
tillräckligt för de flesta bilder som du vill göra. 

Försök att rita innanför ramen. Ritar du utanför den kan du förstöra 
dinbild. , 

Lycka till! 

0 P0KE36879,8 '■ P0KE36867,21: P0KE36864,17: P0KE36865,45: P0KE36866,144: P0KE36869,253 

1 PRINT"T:F0RR=1T016:F0RN*1T010 : P0KE7663+16*N+R,N+10#fi-11=NEXTN,fl 

2 F0R.R=5120TO7S79: POKER, 0: NEXT: P0KE37154,127: X=64: V=80 

3 F0RR=5120TO7679STEP160:POKER,255:P0KER+i59,255:NEXT 

4 F0RR=5121T05278:POKER,128:POKEfl+2400,1:NEXT 

i0 R=F’EEK<37137):X=X+< <RRND16)=0):V=V+ < <RRND4)=0):V=V-< <RRNB8)=0) : X=X-< <PEEK<37i 
52)RND128)=0) 

20 F=-< <RRND32)=0):IFF*1THEN70 
30 F=~< <RRND32>=0):IFF=1THEN70 

50 V 1 =V+5 1 20+ 160#I NT < XX8 ) : PQKEV 1 ,PEEK < V 1)0R2 T< 7-XRND7 ) ; 00T0 10 
60 V1-V+5120+160*INT <X/8):P0KEV1, PEEK <V1)RNDN0T2T<7-XRND7):GOTO10 
70 V1»V+5120+160*INT <X/8) : P0KEV1,PEEK<V1)RNDN0T21< 7-XRNB7)'GOTO10 
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Ett kort men ganska 
användbart program. Det 
visar 

innehållsförteckningen i 
minnet både i hexadecimal 
och decimal form, och det 
är synnerligt lämpligt när 
maskinkod har laddats in. 

Det möjliggör undersökning 
av minnespositioner, du 
kan kont rollera 
att mask ink odsprogrammen 
laddats in riktigt. Då du 
besvarar INPUT-satsen på rad 
130 om minnesstart konverterar 
subrutin rad 1200 till rad 2000 
de decimala possisionsvärderna 
till ekvavilenta hexadecimala 
som sedan sätts samman i sträng¬ 
form i rad 1330. Rad 1031 under¬ 
söker minnesinnehållets adress med 
placeringen av 20 adresser och 
subrutin 2000 konverterar de funna 
decimala minnesinehå l let till 
hexadecimalt för den högre adressen. 

Rad 1033 gör samma sak för den lägre 
adressen. I rad 1034 sammanställs 
den låga och höga adressen till en 
sammansatt sträng. Rad 1040 skriver 
ut det decimala, hexadecimala värdet 
och innehållet, av adressen, på skärmen 


0m du önskar ytterligare finesser med att behlhandla maskinkod kan 
MASKINKODS MONITORN vara till god hjälp! 


10 REM MEM 

20 REM RWM 1982 

1000 PRINT"^«SH0WS MEMORY C0NTENTS IN BLOCKS 
0F 20" 

1010 P- i 9 : Q-0 : PR I NT 11 M1EM0RY START <N0RMALLY 
4096)7" ••INPUTV 

1020 PRINT"T ■ F0RT-V+QT0V+P 

1030 GOSUB1200 

1031 W-PEEK(T):N»INT(W/16):OOSUB2000 

1032 G$-E* 

1033 N-W-N#16:QQSUB2000 

1034 H$*E$ : J$»G$+H$ 

1040 PRINT "S";T; "I";PEEK<T) JTABdDJ»;"S"J 
TAB<16);Ft;"!":NEXT 

1050 PRINT" S";"R" ESTART" i "M" iV';" 
shB";"0R"; ,, öEi";"ND" 

1052 GET0$:IF0*-""THEN1052 

1054 IFQ*»"R"THEN1010 

1056 IF0$»"+"THENP-P+20 : G=Q+20 : PR1NT"T:00T 

01020 

1057 IFQ*»"E"THEN1100 

1058 IFO*»"-"THENP«P-20 : Q-Q-20:PRINT"T:GOT 

01020 

1059 GOTO1050 

1100 PRINT"rHEND" : END 


1200 P1«256>K16:P2=256:P3«16 
1210 N1-INT(T/P1) ; N*N1 
1220 GOSUB2000 
1230 A$-E* 

1240 N2"INT((T-N1#P1 VP2) : N=N2 
1250 GOSUB2000 
1260 Bf-E$ 

1270 N3-1NT< <T-N1#P1-N2#P2 >/P3):N-N3 
1280 GOSUB2000 
1290 C*-E* 

1295 N9-N1#P1+N2#P2+N3*P3 

1300 N4-T-N9 : N-N4 

1310 GOSUB2000 

1320 Dl-Ef 

1330 F*-Ai+B*+Cf+Ii* 

2000 IFN<10THENE$-CHR$< N+48):RETURN 

2010 IFN»10THENE*®"A":RETURN 

2020 IFN-11 THENE$«"B" '• RETURN 

2030 IFN-12THENE*-"C":RETURN 

2040 IFN-13THENE*»"D" : RETURN 

2050 IFN-14THENE*-"E" ! RETURN 

2060 IFN-15THENE*»" F 1 " ■RETURN 

2070 RETURN 53 








VI KAN NU ERBJUDA TVÄ EFTERLÄNGTADE TILLBEHÖR TILL VIC-20 SOM INTE HAR FUNNITS TIDIGARE: 


EXPANSIONSLADA FDM-E3 Denna enhet består av en låda med lock som innehåller 3 st uttag för RAM eller 
ROM-moduler. Anslutningen till VIC-20 sker med flatkabel och en kontakt till expansionsporten. 

Enheten är ett mycket bra alternativ för den som exempelvis vill kombinera extraminne med Programmer's 
Aid eller Superexpander. Lådan är byggd i Sverige och har ett års garanti. Bruksanvisning medföljer. 
Dimensioner (B x H x D) : 190 x 120 x 110. PriSBt är; 595r inkl.mOtTIS 

OBs! EXTRA INTRODUKTIONSERBJUDANDE: 100:- rabatt på expansionslådan vid samtidigt köp av RAM/ROM-modul. 


IN/UT EXPANSION FDM-IU12 Denna enhet består av en låda med lock som är ansluten till VIC-20's userport. 
Den innehåller A st oberoende 220 V reiäer som klarar 600 W, A st oberoende REED-reläer för klenspänning 
och A st oberoende ingångar för TTL-nivåer. Alla anslutningar till omvärlden sker via skruvplintar och 
man får alltså själv koppla till nätsladdar, kontakter m m. Bruksanvisning samt programvara för demon¬ 
stration medföljer. Användningsområdet för denna enhet är i princip obegränsat och man har här stor nytta 
av realtidsklockan i VIC-20. Dimensioner (B x H x D): 190 x 60 x 110. PfiSGt än 695l- inkl.moms 


p, Si Vi säljer även hela det övriga VIC-programmet och vi skickar över hela landet mot postförskott. 

VÅRT MOTTO! ALLTING ALLTID I LAGER. 

FERFlLUriDS DATA B HIEDIA 

Grönegacan 7, 222 2A LUND, Postgiro: 10 98 9A - 6, Tel: 0A6 - 12 00 66 



Spar tid och pengar — 
använd standardblanketter! 

Till de flesta smådatorer finns det färdiga administriva program att 
köpa. Och för de färdiga administriva programmen finns det s.k. stan¬ 
dardblanketter. Begreppet ”standardblankett” innebär att t ex ”VIC- 
och PET-blanketter” passar ihop med de administriva programmen för 
VIC och PET. Genom att standardblanketterna trycks samtidigt i stora 
upplagor kan priset pressas rejält. Ett enkelt och effektivt sätt att få 
fungerande blanketter till Din eller företagets smådatorer! 


Avesta: Maskinfinna Bengt Erixon 0226-511 42 Borlänge: Dala Papper AB 0243-819 85 Borås: \ 
Borås Data & Elektronic AB 033-11 53 60 Bromma: Esselte Svanströms 08-26 25 00 Eskilstuna: 
RPU 016-14 95 91 Falkenberg: Davids Data & Elektronik 0346-150 64 Falun: Dala Datorer 023- 
228 50 Gävle: Din Dator 026-18 18 18 Göteborg: G runde Bs Kontorsvaruhus 031-20 93 40, 
Kontorssystem AB 031-42 80 60, Janken Minidata AB 031-18 02 50. Mytech Data AB 031-11 51 38 
Halmstad: Kays Radio 035-11 33 29 Helsingborg: Bjemes Kontorsvaruhus 042-16 20 55, Elektro- 
bygg 042-13 33 23 Hudiksvall: Hälsingedata 0650-140 60 Kalmar: Kalmar Minidata 0480-297 77. 
Sydkonior 0480-154 60 Karlshamn: Exportstaben AB 0454-180 35 Karlstad: K-Data 
054-18 62 80, Ramströms Pappers AB 054-11 57 50, Esselte System 054-10 20 20 Katrineholm: 
Nordströms Kontorsmaskiner 0150-118 68 Kristianstad: Sydkontor 044-12 60 70 Lidingö: Be Ikos 
Kontor 08-767 92 20 Linköping: Nordströms Kontorsmaskiner 013-11 51 75 Luleå: MDC Mkt o 
datacenter 0920-248 94 Malmö: Lindahl o. Rothoff AB 040-10 17 30, Kontor sleverantör en B. Wester 
040-10 43 45 Mora: Per-ErikFmn AB 0250-155 91 Nora: MB Data AB 0587-132 55 Norrköping: 
Datax HB 011-16 21 79, Nontöpings Datorbutik AB 011-10 32 85 Nyköping: RPU 
0155-889 80 Skellefteå: Skeiefteå Datatjänst 0910-383 50 Simrishamn: Kontorsleverantören i 
Simrishamn HB 0414-135 60 Skövde: Axelsson & Schönborg AB 0500- 861 90 Solna: Infbterm 
06-730 55 80, Tranfor Data AB 08-734 03 60 Sollentuna: Perssons Böcker 08- 
35 91 85 Stockholm: KIDA Kontors o. Industridata 06-97 03 40, Möv-Mjcro Datorer AB 08- 

16 09 15, Rent-A-Computer 08-714 02 90, T D X Små Datorer 08-52 10 60. Tum-Key Data 08- 
54 04 50. Esselte Svanströms 06-22 80 60 Sundsvall: Amitron Electronic 060- 

17 29 00 Södertälje: Esselte Svanströms 0755-327 90 Uddevalla: ADB Väst 0522-177 17 
Umeå: NKF Säfström & HeOgren 090-13 50 65. Uppsala: EMAB Effektiv Marknadsptanenng AB 
018-12 27 55 Vetlanda: Databutiken i Vetlanda 0380-175 00 Västervik: Data Wahl 0490- 
10180 Västerås: GJ Konsult 021-14 29 70, RPU 021-13 30 50 Växjö: Bra Kontor 

0470-200 30 Örebro: Dawidssops Maskmafiar AB 019-13 64 50, Bohbn _& Sjökvist AB 
019-12 42 50 Örnsköldsvik: Omskötdsviks Elteknik AB 0660-125 18 Östersund: Data 
V M elan der AB 063-11 10 66 


Just nu finns standardblanketter för 
programmen till VIC-20, PET-Commodore 
Etiketter till VIC 2 programkassett, osv. 

Här brevid är adresserna där du kan 
hämta standardblanketter redan idag. Där 
hittar Du också datalistor och etiketter. 
Har Du speciella önskemål - företagsloggo, 
adressuppgifter m.m. - tala med blänket - 
teriet. 

DATA 

BLANKETTERI 


MOORE PARAGON Svenska AB fÄ}§i 2 3?5" d ''* 













Det här är 
boken för alla 
VIC-ägare. 



Basic-handboken är oumbärlig för den som vill 
lära sig använda datorn till 100 procent. 

Basic-handboken beskriver alla Basic-ord i samtli¬ 
ga datorer på marknaden. 

Basic-handboken är skriven av en av USA:s namn¬ 
kunnigaste författare inom dataområdet, David A. 
Lien. Den är översatt och anpassad till svenska för¬ 
hållanden av Ingmar Olsson. 

Basic-handboken vänder sig till såväl proffs som 
hobbyister och är pedagogiskt upplagd för att göra 
det lätt att hitta och lära. 

Basic-handboken behandlar ingående avvikelser 
mellan olika basicdialekter och ger lösningar på hur 
man omvandlar program på bästa sätt. 

Basic-handboken ger förslag till subrutiner och den 
som har en "tunn" Basic får möjlighet att bättre ut¬ 
nyttja sin dators kapacitet. 

Basic-handboken ger en mängd tips och förslag 
inom ekonomiska/administrativa områden och 
grundläggande förklaringar inom matematiska/tek¬ 
niska områden. 

Basic-handboken finns hos välsorterade bokhand¬ 
lare eller i datorbutiker. Du kan också beställa den 
direkt från förlaget så skickar vi den mot postförskott, 
med 10 dagars returrätt. Använd kupongen! 

PAOINA / 

-FOIU*Qi»B_ 

Skicka mig.exemplar av Basic-handboken. 

Jag betalar 218 kr plus porto och postförskottsavgift. Jag 
har 10 dagars returrätt. 

Namn . 

Företag . 

Adress . 


Skicka kupongen till: PAGINA FÖRLAGS AB 
Box 49035, 100 28 Stockholm. 

Boken distribueras av TRIM PUBLICATIONS. 
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har utav en internationell 
pressjury, bestående av: 

Databus, Holland 
Microsystems, Frankrike 
Bit, Italien 

Praktical Computing, England 
Chip, Spanien 
Personal Computing, USA 
CHIP, Tyskland 

VALTS TILL 
ÄRETS DATOR! 


Bland de medtävlande 
fanns: 


ZX-81 

Spectrum 

Atari 

Tandy Color 
m.fl. 
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MASSORNAS KRIG bygger på en 
novell av H.G.Wells. Joan Collins 
och Robert Lansing regisseras 
måsterligt av skräckregissören Bert 
I. Gordon. 





BLOW OUT årets rysare med John 
Travolta och Nancy Allen. Enfilmav 
mästerregissören Brian de Palma. 

SE DEN PÄ EGEN RISK 


THE NORSEMAN med Lee Majors, 
Cornel Wilde och Mel Ferrer är en 
häftig äventyrsfilm där vfkingar och 
indianer möts i tuffa stridsscener. 



FRIDAY FOSTER-HÄMND PÄ 
ÖGONVITTNE. Häftiga Pam Grier 
är tillbakaiennyaktionfyllddeckare. 




SENASTE NYTT! 



.wnacora, 


wra iwmi . omkib a fm* 

ÄAJWm 8ER> *öttJ» * AMJn *HAXm y M£S 
ÖS PÄ, RÅSKINN! LeeMarvin,Oliver 
Rend, Robert Culp, Elizabeth 
Ashley, Kay Lenz och Stroher 
Martin i en komedi som går utanpå 
det mesta. 


JAKTEN PÅ DE 7 GULDNÅLARNA 

är en stentuff actionthriller med 
Joe Don Baker som den äventyrs¬ 
lystne Dan Mason. I roll-listan 
märks också Jim Kelly. 


FLYKTEN FRÅN DJÄVULSLANDET 

med Patrick Wayne i huvudrollen 
som den stentuffe flygmajoren Ben 
McBride. En verklig actionfilm! 


BOXCAR BERTHA är regissören 
Martin Scorseses (Taxi Driver) 
debutfilm. Barbara Hershey och 
David Carradine spelar huvud¬ 
rollerna i denna tuffa actionfilm. 


SQUIRM — KRÄLANDE FASA med 

Patricia Pearcy och Don Scardino. 
Om du efter att ha sett denna 
film kan meta med mask är du att 
GRATULERA! 


V«€> 


PRERHHnB 

v FRmUJftt//OÄOff 




GRATIS 


LÅNEKASSETT 


NY GRATIS LÅNEKASSETT OCH 
KATALOG I DIN VIDEOBUTIK 


Sänd mig ytterligare information om Walthers 
Videos filmer 

□ Har butik □ Privatperson 

Namn/Firma_ 

Adress_ 


■ Postnr_Postadr._ 

L.j 



WALTHERS VIDEO, BOX 5081, 421 05 V.FRÖLUNDA 
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handic 

momar, 


Sportra 


ir, cykel osv. 
[ken fee- 
lya vänner 


För folk "in action" på Windsurfer, skidor, rull&_ 
som sportar för skoj skull eller deltar i tufft tävli 
ting att kunna snacka med konlpisen, tjejen elle 
samtidigt som man sportar. ^ 
handic micman fixar dett aj^-^r / 

många sportgrenar aitå$nifer,eiitidrottsmännen radiokommu- 
nikatioh^id träning för att nå bästa resultat vid tävling. 
Direktkontaf$3i)ed4ränaren, de du! 

handic micman äTen ^d att jawl itetsprodukt som ger dig 
möjlighet till dessa nya dimensioner av kommunikation, 
"radiosamband". 

handic micman är lätt och liten, bärs antingen i bältes- / 
clipset på baksidan apparaten eller i bärsele’. Talar och 
lyssnar gör du med en lättviktshörlur som är försedd 
med mikrofonbom. handic micman är som standard 
utrustad med joggingkanalen och kan förses med 
ytterligare en kanal t.ex. windsurfing-, cykel- 
skid-, hästsportskanal. Det är lätt att byta sport¬ 
kanal på handic micman. När du använder 
jiandic micman där det är vatten, behöver du 
handic micman våtpaket/" 

\ypplev närhetenjtill den som finns kilomet¬ 
rar ifrån dig, vilken känsla, det måste upp- 
NlevasL ' 


electronic ab 










^» IVIC-FOLICDåTOBW 


Ingen lek... 
movgondagens språk! 




UTBILDA 

Människan står för en total 
”omskolning”, eller snarare 
omvälvning. I och med att da¬ 
torn accepterades kan inte 
kedjereaktionen hindras. Alla 
kommer att vilja lära sig att an¬ 
vända detta nya verktyg. 
Därför investerar Riksdagen i 
att datautbilda hela svenska 
folket. 

Dig också! 


HJÄLPA 


Ge dig själv, din familj chansen 
att lära känna hur datorn fun¬ 
gerar och vad den kan göra för 
dig. Lättfattliga instruktions¬ 
böcker hjälper dig att steg för 
steg utveckla dina kunskaper 
och din förståelse för datorer. 
”Datorer —.Modeller — Verk¬ 
lighet” av Professor Lars Kris¬ 
tiansson är en av böckerna i 
VIC biblioteket. 


VIC — hjälper till med hus- 
hållsbudgeten, huskalkylen. 
Lägg alla mammas recept eller 
pappas grammofonskivor i 
ordnade register. Använd VIC 
som skrivmaskin då du brev¬ 
växlar med kompisen eller 
myndigheter. Du kan låta VIC 
bevaka dina tillhörigheter, då 
som tjuvlarm. Applikationerna 
av VIC i hemmet är många. 


UNDERHÅLLA 

Morfar utmanar sin dotter och 
dotterson i huvudräkning, där 
datorn ger frågorna. Far och 
son spelar schack mot datorn. 
Hela familjen försöker att hitta 
den stora skatten som datorn 
gömt så väl. Några exempel på 
hur datorn med sitt stora kun¬ 
nande kan utmana familjen i 
spännande tävlingar och sam¬ 
tidigt ge huvudgymnastik. 


Han spelar inte bara ett spel... 
han lär sig också framtidens dataspråk. 

Därför investerar riksdagen i att 
datautbilda hela svenska folket. 


2.49 

Cirkapris inkl. moms 

Gäller VIC-20 CPU 




SVERIGES MEST KÖPTA FOLKDATOR 




Box 1063, 436 00 Askim/Göteborg 
Tel. 031-28 97 90 Telex: 21420 

— ett företag i Datatronicgruppen— 



























